Table1 não ofuscante como DataTable novo
AdTable1 não ofuscantes como SqlDataAdapter novo (“SELECIONAR * de Table1”, de Me.ConSQL)
Table1.Clear ()
AdTable1.Fill (Table1)
Table1.Rows.Add (“Table2_Colums1_To_Add”)
Table1.Rows.Add (“Table2_Colums2_To_Add”)
Escurecem I, IdT1, Qry
Para I = 0 a Table1.Rows.Count - 1
IdT1 = Table1.Rows (I).Item (“identificação”)
Qry = “seleciona * de Table2 onde IdT2='" & IdT1 & “'”
Table2 não ofuscante como DataTable novo
AdTable2 não ofuscante como SqlDataAdapter novo (Qry, Me.ConSQL)
Table2.Clear ()
AdTable2.Fill (Table2)
Se Table2.Rows.Count > 0 então
Table1.Rows (I).BeginEdit ()
Table1.Rows (I).Item (“Table2_Colums1”) = Table2.Rows (0). Artigo (“Table2_Colums1”)
Table1.Rows (I).Item (“Table2_Colums2”) = Table2.Rows (0). Artigo (“Table2_Colums2”)
Table1.Rows (I).AcceptChanges ()
Terminar se
Em seguida
Me.Datagridview1.Datasource=Table1
Me.datagridview1.refresh
|