以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动生成日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131439)
--  作者：最嗨魔女呜啦啦
--  发布时间：2019/2/26 11:30:00
--  自动生成日期

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

问题：有没有办法根据人员表  然后选择想要的日期  自动填充这些日期  如图  想要2019-1-21 至2019-1-26 日的时间段   就自动填充  求指教
--  作者：有点甜
--  发布时间：2019/2/26 11:46:00
--  
具体实例发上来测试。
--  作者：最嗨魔女呜啦啦
--  发布时间：2019/2/26 13:25:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:考勤生成.zip



图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看

如图：通过选择日期  然后根据人员表  自动就能生成考勤表内的数据  有没有办法实现
--  作者：有点甜
--  发布时间：2019/2/26 14:36:00
--  
Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If dp1.value = Nothing OrElse dp2.value = Nothing Then
    msgbox("请输入日期")
Else
    Dim t As Table = e.Form.controls("table1").Table
    t.DataTable.DataRows.clear
    For Each dr As DataRow In DataTables("人员表").Select("工号 is not null")
        Dim d1 = dp1.value
        Do While d1 <= dp2.value
            Dim nr As Row = t.addnew
            nr("工号") = dr("工号")
            nr("姓名") = dr("姓名")
            nr("部门") = dr("部门")
            nr("考勤日期") = d1
            d1 = d1.adddays(1)
        Loop
    Next
End If