主题：关于考勤数据指定格式生成表格（项目已经改成内部表了！））

不会可以自己学习嘛，后面要用到编码的很多，你不会只能天天等别人帮你修改了。

 

那要这个论坛有毛用啊！就是不会才传个例子上来问的嘛！个个都自己闭关修炼啊？

看来我的问题没人管了啊！

.......................................

我理你，命令窗口执行：

 

 

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 =1then
                dr2("t2") = Format(drs(n)("FDateTime"),"HH:mm")
                Exit For
            End If
        Next
    Next
Next

谢谢！狐爸！爱死你了！

上次你给出的代码有问题呢！会出现在以下问题

如何填上正常时间：2011-07-01 12：00  的话则不能筛选显示出来

然后同一天的时间则分成了两行，而不是在同一行！

 
此主题相关图片如下：统计.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 啊！我想不明白！

Dim drs As List(of DataRow) =  DataTables("Kq_Source").Select("CardNo = '" & dr1("CardNo") & "'And FDateTime = #" & dt1.AddDays(i) & "#")

 

改为：

 

Dim drs As List(of DataRow) =  DataTables("Kq_Source").Select("CardNo = '" & dr1("CardNo") & "'And FDateTime >= #" & dt1.AddDays(i) & "# And FDateTime < #" & dt1.AddDays(i +1) & "# ")

 

 

但还是同一天还是分成了两行！不能同一行吗？

同一天的时间还是不能在同一行显示啊！还是分成了两行！

然后在date 这个列 能不能这样：我选择了7-1 至7-31 这个时间段，那么不管它有没有考勤数据，都把这天的date显示出来?

如：

date     t1         t2

 

7-1    12:00     13:00

7-2

7-3    11:00     14:00

7-4    12:40     17:00

7-5    9:19

7-6    17:30           

....   

7-31   9:00      17:30