Table1 dévil como nuevo DataTable
AdTable1 déviles como nuevo SqlDataAdapter (“SELECCIONAR * de Table1”, de Me.ConSQL)
Table1.Clear ()
AdTable1.Fill (Table1)
Table1.Rows.Add (“Table2_Colums1_To_Add”)
Table1.Rows.Add (“Table2_Colums2_To_Add”)
Amortiguan I, IdT1, Qry
Para I = 0 a Table1.Rows.Count - 1
IdT1 = Table1.Rows (I). Artículo (“identificación”)
Qry = “selecciona * de Table2 donde el IdT2='" y IdT1 y “'”
Table2 dévil como nuevo DataTable
AdTable2 dévil como nuevo SqlDataAdapter (Qry, Me.ConSQL)
Table2.Clear ()
AdTable2.Fill (Table2)
Si Table2.Rows.Count > 0 entonces
Table1.Rows (I) .BeginEdit ()
Table1.Rows (I). Artículo (“Table2_Colums1”) = Table2.Rows (0). Artículo (“Table2_Colums1”)
Table1.Rows (I). Artículo (“Table2_Colums2”) = Table2.Rows (0). Artículo (“Table2_Colums2”)
Table1.Rows (I) .AcceptChanges ()
Terminar si
Después
Me.Datagridview1.Datasource=Table1
Me.datagridview1.refresh
|