Table1 fioco come nuovo DataTable
AdTable1 fiochi come nuovo SqlDataAdapter (“SELEZIONARE * a partire da Table1„, da Me.ConSQL)
Table1.Clear ()
AdTable1.Fill (Table1)
Table1.Rows.Add (“Table2_Colums1_To_Add„)
Table1.Rows.Add (“Table2_Colums2_To_Add„)
Oscurano la I, IdT1, Qry
Per I = 0 a Table1.Rows.Count - 1
IdT1 = Table1.Rows (I).Item (“identificazione„)
Qry = “seleziona * a partire da Table2 dove IdT2='" & IdT1 & “'„
Table2 fioco come nuovo DataTable
AdTable2 fioco come nuovo SqlDataAdapter (Qry, Me.ConSQL)
Table2.Clear ()
AdTable2.Fill (Table2)
Se Table2.Rows.Count > 0 allora
Table1.Rows (I).BeginEdit ()
Table1.Rows (I).Item (“Table2_Colums1„) = Table2.Rows (0). Articolo (“Table2_Colums1„)
Table1.Rows (I).Item (“Table2_Colums2„) = Table2.Rows (0). Articolo (“Table2_Colums2„)
Table1.Rows (I).AcceptChanges ()
Concluder se
Dopo
Me.Datagridview1.Datasource=Table1
Me.datagridview1.refresh
|