If Tables("窗口2_table1").DataTable.datacols.contains("a") = False Then
Tables("窗口2_table1").DataTable.datacols.add("a", GetType(Boolean))
Tables("窗口2_table1").cols("a").visible = False
End If
Tables("窗口2_table1").DataTable.replacefor("a", False)
For Each r1 As Row In Tables("窗口2_table1").GetCheckedRows
r1("a") = True
Next
Dim b As New GroupTableBuilder("统计表1", Tables("窗口2_table1").DataTable )
b.Groups.AddDef("第一")
b.Groups.AddDef("第二")
b.Groups.AddDef("第四")
b.Groups.AddDef("第五")
b.Totals.AddDef("第八")
b.Filter = "a=true"
Dim dt As DataTable = b.Build(True) '生成统计表
For Each r1 As DataRow In dt.datarows
Dim r2 As DataRow = DataTables("表D").AddNew
r2("第一列") = Date.Today()
r2("第三列") = r1("第一")
r2("第四列") = r1("第二")
r2("第五列") = r1("第四") & "-" & r1("第五")
r2("第六列") = r1("第五")
r2("第七列") = r1("第八")
Next
For Each dr1 As Row In Tables("窗口2_Table1").GetCheckedRows
If Tables("窗口2_table1").DataTable.datacols.contains("a") Then
Tables("窗口2_table1").DataTable.datacols.Delete("a")
End If
Dim filter As String = "1=1"
For Each dc As DataCol In DataTables("表C").DataCols
If dr1.isnull(dc.name) Then
filter = filter & " and " & dc.name & " is null"
Else
If dc.IsNumeric Then
filter = filter & " and " & dc.name & " =" & dr1(dc.name)
ElseIf dc.isdate Then
filter = filter & " and " & dc.name & " =#" & dr1(dc.name) & "#"
Else
filter = filter & " and " & dc.name & " ='" & dr1(dc.name) & "'"
End If
End If
Next
Dim dr2 As DataRow = DataTables("表E").find(filter )
If dr2 Is Nothing Then
dr2 = DataTables("表E").AddNew()
For Each dc As DataCol In DataTables("表C").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
' dr1.Delete
Next
请问怎么让表D和表E选取后关联啊
加好友 
发短信
Post By：2022/5/29 10:01:00 [只看该作者]
