Тусклое Table1 как новое DataTable
Тусклые AdTable1 как новое SqlDataAdapter («ВЫБЕРИТЕ * от Table1», Me.ConSQL)
Table1.Clear ()
AdTable1.Fill (Table1)
Table1.Rows.Add («Table2_Colums1_To_Add»)
Table1.Rows.Add («Table2_Colums2_To_Add»)
Затемните I, IdT1, Qry
Для I = 0 к Table1.Rows.Count - 1
IdT1 = Table1.Rows (I). Деталь («удостоверение личности»)
Qry = «выбирает * от Table2 где IdT2='" & IdT1 & «'»
Тусклое Table2 как новое DataTable
Тусклое AdTable2 как новое SqlDataAdapter (Qry, Me.ConSQL)
Table2.Clear ()
AdTable2.Fill (Table2)
Если Table2.Rows.Count > 0 после этого
Table1.Rows (I) .BeginEdit ()
Table1.Rows (I). Деталь («Table2_Colums1») = Table2.Rows (0). Деталь («Table2_Colums1»)
Table1.Rows (I). Деталь («Table2_Colums2») = Table2.Rows (0). Деталь («Table2_Colums2»)
Table1.Rows (I) .AcceptChanges ()
Закончитесь если
Затем
Me.Datagridview1.Datasource=Table1
Me.datagridview1.refresh
|