Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("编号", Gettype(String), 16)
dtb.AddDef("打卡时间", Gettype(Date))
dtb.AddDef("打卡时段", Gettype(String),255)
dtb.Build()
MainTable= Tables("统计")
Dim ds As List(Of String) = DataTables("考勤表").SQLGetValues("编号+','+format(打卡时间,'yyyy-MM-dd')")
For Each s As String In ds
Dim s1() As String = s.Split(",")
Dim r1 As Row = Tables("统计").AddNew
r1("编号") = s1(0)
Dim d As Date = cdate(s1(1))
r1("打卡时间") = s1(1)
r1("打卡时段") = DataTables考勤表").SQLGetComboListString("format(打卡时间,'HH:mm')","编号='" & s1(0) & "' And 打卡时间 >= #" & d & "# And 打卡时间<#" & d.AddDays(1) & "#").replace("|"," ")
Next
以上代码统计后台全部记录
我想要实现用当前窗体经过SQLtable经过筛选出来的数据进行统计（比如用窗体筛选“张三”2019年6月1日的考勤记录），要怎么写
加好友 
发短信
Post By：2019/7/8 22:38:00 [只看该作者]
