Dim bd1 As New GroupTableBuilder("表A",DataTables("部门考勤"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("部门") '根据品名分组
bd1.Groups.AddDef("姓名") '根据型号分组
bd1.Totals.AddDef("出勤") '对数量进行统计
bd1.Totals.AddDef("请假") '对金额进行统计
dt1 = bd1.BuildDataSource()
Dim dtb As New DataTableBuilder("表B")
Dim dt2 As fxDataSource
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As Date In DataTables("部门考勤").GetValues("考勤日期")
dtb.AddDef(v, Gettype(String), 32, "", v.Day)
Next
dtb.Build()
For Each v As String In DataTables("部门考勤").GetValues("姓名")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("姓名") = v
For Each dr2 As DataRow In DataTables("部门考勤").DataRows
If dr2("姓名") = v Then
dr1(dr2("考勤日期")) = dr2("备注")
End If
Next
Next
dt2 = dtb.BuildDataSource
dt1.Combine("姓名",dt2,"姓名") '将销售统计数据组合到进货统计数据
Tables("窗口2_Table1").DataSource = dt1 '将统计结果绑定到Table
For Each r As Row In Tables("窗口2_Table1").Rows
For Each dr2 As DataRow In DataTables("部门考勤").DataRows
If dr2("姓名") = r("姓名") Then
r(dr2("考勤日期")) = dr2("备注")
End If
Next
Next
加好友 
发短信
Post By：2014/11/11 10:16:00 [显示全部帖子]
