主题：编排考勤表

dtb.AddDef(v, Gettype(String))

 

For Each v As Date In DataTables("部门考勤").GetValues("考勤日期")

    dtb.AddDef(v.Day, Gettype(String))

Next

 

For Each v As Date In DataTables("部门考勤").GetValues("考勤日期")

    dtb.AddDef(v, Gettype(String), "", v.Day)

Next

For Each v As Date In DataTables("部门考勤").GetValues("考勤日期")

    dtb.AddDef(v, Gettype(String), 32, "", v.Day)

Next

 就是列名重复了，因为你的日期是不同年月日的，肯定会重复列名的。

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