DataTables("工资汇总").DataRows.Clear
DataTables("工资明细汇总").DataRows.Clear
Dim ss1 As String = e.Form.Controls("TextBox1").text
Dim ss2 As String = e.Form.Controls("TextBox2").text
If ss1 = "" AndAlso ss2 ="" Then
messagebox.show("请在文本框内输入期初和期末字符日期!")
Else
Dim g1 As New GroupTableBuilder("统计表1",DataTables("工资")) '期初集资款余额
g1.Groups.AddDef("姓名")
g1.Filter = "[字符日期] >= '" & ss1 & "' and [字符日期] <= '" & ss2 & "'"
g1.Build()
For Each r10 As Row In Tables("统计表1")
Dim r1 As Row = Tables("工资汇总").AddNew()
r1("姓名") = r10("姓名")
For Each r As Row In Tables("身份证号码")
If r("姓名") = r1("姓名") Then
r1("序号") = r("序号")
Exit For
End If
Next
Next
Dim g2 As New GroupTableBuilder("统计表2",DataTables("工资明细表")) '期初集资款余额
g2.Groups.AddDef("序号")
g2.Groups.AddDef("姓名")
g2.Groups.AddDef("工资摘要")
g2.Totals.AddDef("金额")
g2.Filter = "[字符日期] >= '" & ss1 & "' and [字符日期] <= '" & ss2 & "'"
g2.Build()
For Each r10 As Row In Tables("统计表2")
Dim r1 As Row = Tables("工资明细汇总").AddNew()
r1("姓名") = r10("姓名")
r1("工资摘要") = r10("工资摘要")
r1("金额") = r10("金额")
For Each r As Row In Tables("工资摘要名称")
If r("工资摘要") = r1("工资摘要") Then
r1("序号") = r("序号")
Exit For
End If
Next
Next
Tables("工资汇总窗口_Table1").DataSource = DataTables("工资汇总")
Tables("工资汇总窗口_Table2").DataSource = DataTables("工资明细汇总")
Tables("工资汇总窗口_Table1").SetColVisibleWidth("序号|60|姓名|80|金额|100")
Tables("工资汇总窗口_Table2").SetColVisibleWidth("序号|60|姓名|80|工资摘要|120|金额|100")
Tables("工资汇总窗口_Table1").SetHeaderRowHeight(30)
Tables("工资汇总窗口_Table1").DefaultRowHeight = 30
Tables("工资汇总窗口_Table2").SetHeaderRowHeight(30)
Tables("工资汇总窗口_Table2").DefaultRowHeight = 30
Tables("工资汇总窗口_Table1").Grid.Rows(Tables("工资汇总窗口_Table1").Grid.Rows.count-1).height = 30
Tables("工资汇总窗口_Table2").Grid.Rows(Tables("工资汇总窗口_Table2").Grid.Rows.count-1).height = 30
Tables("工资汇总窗口_Table1").Cols("金额").GrandTotal = True '指定要合计的列
Tables("工资汇总窗口_Table1").GrandTotal = True '显示合计模式
Tables("工资汇总窗口_Table2").Cols("金额").GrandTotal = True '指定要合计的列
Tables("工资汇总窗口_Table2").GrandTotal = True '显示合计模式
Dim drs1 As List(of DataRow) = DataTables("工资汇总").Select("","序号")
For i As Integer = 0 To drs1.Count - 1
drs1(i).BaseRow("_SortKey") = i
Next
Dim drs2 As List(of DataRow) = DataTables("工资明细汇总").Select("","序号")
For i As Integer = 0 To drs2.Count - 1
drs2(i).BaseRow("_SortKey") = i
Next
DataTables("统计表1").DataRows.Clear
DataTables("统计表2").DataRows.Clear
End If
第一次点击按钮生成:Tables("工资汇总窗口_Table1")和Tables("工资汇总窗口_Table2"),如果不清除Tables("工资汇总窗口_Table1")和Tables("工资汇总窗口_Table2")出现如下错误