上次你给出的代码有问题呢!会出现在以下问题
如何填上正常时间:2011-07-01 12:00 的话则不能筛选显示出来
然后同一天的时间则分成了两行,而不是在同一行!
此主题相关图片如下:统计.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-8/20138210202817272.jpg)
Dim dt1 As Date = #6/8/2011#
Dim dt2 As Date = #12/31/2011#
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("name", Gettype(String), 32)
dtb.AddDef("cardno", Gettype(String), 32)
dtb.AddDef("date", Gettype(Date))
dtb.AddDef("t1", Gettype(String))
dtb.AddDef("t2", Gettype(String))
dtb.Build
For Each dr1 As DataRow In DataTables("ZlEmployee").DataRows
For i As Integer = 0 To (dt2 - dt1).TotalDays
Dim drs As List(of DataRow) = DataTables("Kq_Source").Select("CardNo = '" & dr1("CardNo") & "'And FDateTime = #" & dt1.AddDays(i) & "#")
For n As Integer = 0 To drs.count -1
Dim dr2 As DataRow = DataTables("统计").Addnew
dr2("name") = dr1("Name")
dr2("CardNo") = dr1("CardNo")
dr2("date") = drs(n)("FDateTime").Date
If n = 0 Then
dr2("t1") = Format(drs(n)("FDateTime"),"HH:mm")
ElseIf n =1 then
dr2("t2") = Format(drs(n)("FDateTime"),"HH:mm")
Exit For
End If
Next
Next
Next
以上的n 是drs 行数,这个n在什么情况=0 或者 =1 啊!我想不明白!