Ver Mensaje Individual
  #4 (permalink)  
Antiguo 07/08/2014, 13:17
Avatar de frankjoel86
frankjoel86
 
Fecha de Ingreso: noviembre-2008
Ubicación: Ica
Mensajes: 295
Antigüedad: 15 años, 6 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.
__________________
www.basritours.com
Agencia de turismo en Ica.