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("第四")
r2("第六列") = r1("第五")
r2("第七列") = r1("第八")
Next
Tables("窗口2_table1").DataTable.datacols.Delete("a")
For Each dr1 As Row In Tables("窗口2_Table1").GetCheckedRows
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
红色部分执行完成,黑色部分不能执行,能帮我改改吗