Dim dtb As New DataTableBuilder("考勤报表")
dtb.AddDef("编号", Gettype(String), 16)
dtb.AddDef("打卡时间", Gettype(String), 16)
For Each v As String In DataTables("统计").GetValues("打卡时间")
dtb.AddDef(v.replace(" 00:00:00", ""), Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("统计").GetValues("编号")
Dim dr1 As DataRow = DataTables("考勤报表").AddNew()
dr1("编号") = v
For Each dr2 As DataRow In DataTables("考勤报表").Select("编号 = '" & v & "'")
dr1(dr2("打卡时间")) = dr2("打卡时间")
Next
Next
MainTable = Tables("考勤报表")
蓝老师，以上代码生成的考勤报表不能自动填充，帮我修改一下
加好友 
发短信
Post By：2021/6/2 15:11:00 [显示全部帖子]
