mostrar datos en un datagridview

preguntó:

como mostrar los datos en un datagridview de una serie
de campos ingresados por teclado por una caja de textos
al momento de hacer un clic en un boton aceptar despues
del ingreso de todos los campos

Es decir, que en el control DataGridView primeramente se muestran todos los
campos de un objeto DataTable, y posteriormente deseas que sólo se muestren
algunos campos.

Si es así, lo mismo deberás de cambiar la manera de ejecutar tu código, para
eliminar de la colección de columnas, aquellos campos que no deseas que se
muestren:

' Referenciamos la colección de columnas del
' objeto DataTable que actualmente se encuentra
' asociado al control DataGridView
'
Dim columns As DataColumnCollection = _
objetoDataSet.Tables("NombreTabla").Columns

' Eliminamos dos columnas
'
With columns
.Remove("NombreColumna2")
.Remove("NombreColumna5")
End With

Automáticamente, el control DataGridView mostrará únicamente las restantes
columnas de la colección.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Haz lo siguiente:

1) Crea una clase MiClase que contenga una propiedad por cada campo
2) Crea una clase MiLista que herede de BindingList( Of MiClase ) e
implemente el interfaz IComponent
3) Genera el proyecto
4) Abre un formulario cualquiera en vista diseño y en la caja de
herramientas en la pestaña "Como se llame tu aplicación (componentes)" pulsa
con el botón derecho y elige "choose items", navega hasta el exe generado en
el paso 3 y elige de los componentes "MiLista"
5) Arrasta un objeto "MiLista" de la caja de herramientas a tu formulario
6) Establece la propiedad DataSource del DataGridView a MiLista1 usando la
ventana de propiedades o las "smart tags".
7) Escribe este código en el click del botón:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim obj As New MiClase()
obj.MiPropiedad = Integer.Parse(Me.TextBox1.Text)
obj.MiOtraPropiedad = Me.TextBox2.Text
Me.MiLista1.Add(obj)
End Sub




Este sería un ejemplo del código para MiClase y MiLista:

Imports System.ComponentModel

Public Class MiClase

Private _miPropiedad As Integer
Public Property MiPropiedad() As Integer
Get
Return _miPropiedad
End Get
Set(ByVal value As Integer)
_miPropiedad = value
End Set
End Property


Private _miOtraPropiedad As String
Public Property MiOtraPropiedad() As String
Get
Return _miOtraPropiedad
End Get
Set(ByVal value As String)
_miOtraPropiedad = value
End Set
End Property

End Class

<ToolboxItem(True), Serializable()> _
Public Class MiLista
Inherits BindingList(Of MiClase)
Implements IComponent


Public Event Disposed(ByVal sender As Object, ByVal e As
System.EventArgs) Implements System.ComponentModel.IComponent.Disposed

Private _site As ISite

Public Property Site() As System.ComponentModel.ISite Implements
System.ComponentModel.IComponent.Site
Get
Return _site
End Get
Set(ByVal value As System.ComponentModel.ISite)
_site = value
End Set
End Property

Private disposedValue As Boolean = False ' To detect redundant
calls

' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
RaiseEvent Disposed(Me, EventArgs.Empty)
End If
End If
Me.disposedValue = True
End Sub

#Region " IDisposable Support "
' This code added by Visual Basic to correctly implement the disposable
pattern.
Public Sub Dispose() Implements IDisposable.Dispose
' Do not change this code. Put cleanup code in Dispose(ByVal
disposing As Boolean) above.
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
#End Region

End Class



Saludos:

Jesús López


"" escribió:

hola ojala alguien me pueda ayudar a resolver mi problema de como
mostrar los datos en un datagridview de una serie de campos
ingresados por teclado por una caja de textos al momento de hacer un
clic en un boton aceptar despues del ingreso de todos los campos

Espero que te sirva,sino ya sabes nadie lo sabe todo.

A continuación sigue código en Visual Basic NET:

Public i, j As Integer
Public Sub OperacioDataGrid(ByVal Modo As String)
'inicializamos valores..
i = 0 : j = 0
'creamos un objeto tabla...
Dim Tabla As New DataTable
For i = 0 To 8
'creamos las columnas y las insertamos en la tabla...
Tabla.Columns.Add(New DataColumn("Column " & i))
Next
'creamos las filas de la tabla llenándolas con datos...
For i = 0 To 10
Dim fila As DataRow
'creamos una fila...
fila = Tabla.NewRow()
For j = 0 To 8
'evaluamos el modo de operacion que se hará en la datagrid
If Modo Is Nothing Then
'limpiamos...
fila(j) = ""
ElseIf Modo = "llenar" Then
'llenamos
fila(j) = "Celda (" & i & ", " & j & ")"
End If
Next
'agregamos la fila a la coleccion de filas de la tabla
Tabla.Rows.Add(fila)
Next
'tamaño por defecto de la datagrid
Me.DataGrid1.Size = New Size(750, 300)
'enlazamos nuestra datagrid con la tabla llena de datos
Me.DataGrid1.DataSource = Tabla
'...eso es todo... que fácil verdad..??? Nos vemos..

End Sub
Private Sub BtnLlenar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnLlenar.Click
'llenar datos...
Me.OperacioDataGrid("llenar")
End Sub
Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnLimpiar.Click
'para liberar datos o recursos
Me.DataGrid1.DataSource = Nothing
'para limpiar
Me.OperacioDataGrid(Nothing)
End Sub



"" wrote:

hola ojala alguien me pueda ayudar a resolver mi problema de como
mostrar los datos en un datagridview de una serie de campos
ingresados por teclado por una caja de textos al momento de hacer un
clic en un boton aceptar despues del ingreso de todos los campos