
07/08/2014, 13:17
|
 | | | Fecha de Ingreso: noviembre-2008 Ubicación: Ica
Mensajes: 295
Antigüedad: 16 años, 3 meses Puntos: 0 | |
Respuesta: Llenar un datagridview usando otro datagridview Saludos amigos, eh podido avanzar un 90% les comparto el código:
Dim col1 As New DataColumn("Proceso", GetType(Integer))
Dim col2 As New DataColumn("Llegada", GetType(Integer))
Dim col3 As New DataColumn("Rafaga", GetType(Integer))
'ahora lo que harias seria agregar las columnas creadas arriba a tu datatable
tempo.Columns.Add(col1)
tempo.Columns.Add(col2)
tempo.Columns.Add(col3)
For filas As Integer = 0 To DataGridView1.RowCount - 1
For Columnas As Integer = 0 To DataGridView1.ColumnCount - 1
'MsgBox(Me.DataGridView1.Item(Columnas, filas).Value)
Try
If IsDBNull(Me.DataGridView1.Item(Columnas, filas).Value) Then
Exit For
End If
Dim f As DataRow 'representa una fila del la tabla
f = tempo.NewRow 'agrega una fila en blanco una fila vacia
f(0) = Me.DataGridView1.Item(Columnas, filas).Value
Columnas = Columnas + 1
f(1) = Me.DataGridView1.Item(Columnas, filas).Value
Columnas = Columnas + 1
f(2) = Me.DataGridView1.Item(Columnas, filas).Value
tempo.Rows.Add(f) 'hata ak agrego la primera fila
Me.DataGridView2.DataSource = tempo 'le damos el origen de datos al datagridview
Catch ex As Exception
MsgBox(Err.Description)
End Try
Next
Next
-El tema es que al agregar la ultima fila del grid1, muestra un error, por que la fila esta en blanco. si hubiese alguna sugerencia bienvenida sea. |