|
For Each nm As String In DataTables("打卡人员清单").GetUniqueValues("","姓名")
Dim y As Integer = e.Form.Controls("NumericComboBox1").Value
Dim m As Integer = e.Form.Controls("ComboBox1").Value
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
For i As Date = 1 To Date.DaysInMonth(y, m)
Dim dr2 As DataRow = DataTables("出勤表").AddNew()
dr2("日期") = i
dr2("姓名") = nm
Next
Next
|
加好友 
发短信
Post By：2014/3/20 11:47:00 [只看该作者]
