主题：编排考勤表

参考帮助文件"临时表生成器"示例2,将考勤数据编排成表格样式:

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("姓名", Gettype(String), 32)

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

    dtb.AddDef(v, Gettype(Date))

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

MainTable = Tables("表B")

由于"备注"是字符型数据,与"考勤日期"格式不符,上面粉色字体代码怎么改,使其转为字符型,以1,2,3...样式出现?

日期格式为yyyy-mm-dd,占太多位置,整月有31天呢,怎么让它变成1,2,3,4....

报错,不知什么意思:

又出现新问题:

这是另外一种方法?试试

出现类似上面的一个错误提示:

这些代码我还没能消化透,不知道是哪的问题,甜版给的通过,你这个用法还是不行.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事例.zip

哦,明白了,实际运用是需要先按月筛选数据.

统计表与临时表连接,备注符号写不进表格了,怎么办:

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("考勤表_Table1").DataSource = dt1 '将统计结果绑定到Table