Faible Table1 en tant que nouveau DataTable
Faibles AdTable1 en tant que nouveau SqlDataAdapter (« CHOISIR * à partir de Table1 », de Me.ConSQL)
Table1.Clear ()
AdTable1.Fill (Table1)
Table1.Rows.Add (« Table2_Colums1_To_Add »)
Table1.Rows.Add (« Table2_Colums2_To_Add »)
Obscurcissent I, IdT1, Qry
Pour I = 0 à Table1.Rows.Count - 1
IdT1 = Table1.Rows (I).Item (« identification »)
Qry = « choisissent * à partir de Table2 où IdT2='" et IdT1 et « ' »
Faible Table2 en tant que nouveau DataTable
Faible AdTable2 en tant que nouveau SqlDataAdapter (Qry, Me.ConSQL)
Table2.Clear ()
AdTable2.Fill (Table2)
Si Table2.Rows.Count > 0 puis
Table1.Rows (I).BeginEdit ()
Table1.Rows (I).Item (« Table2_Colums1 ») = Table2.Rows (0). Article (« Table2_Colums1 »)
Table1.Rows (I).Item (« Table2_Colums2 ») = Table2.Rows (0). Article (« Table2_Colums2 »)
Table1.Rows (I).AcceptChanges ()
Finir si
Après
Me.Datagridview1.Datasource=Table1
Me.datagridview1.refresh
|