|
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
| 
加好友 
发短信
Post By：2019/2/26 11:46:00 [显示全部帖子]
