|
If e.Form.Controls("DateTimePicker1").text <> "" Then
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim int As Integer = 0
For Each r As WinForm.ListViewRow In lvw.Rows
If r.Checked = True
int = int+1
End If
Next
If Int = 0 Then
MessageBox.show("你并没有选择任何人!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim Result As DialogResult
Result = MessageBox.Show("你本次考勤的人数为:" & int & "人,确定考勤吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For Each r As WinForm.ListViewRow In lvw.Rows
If r.Checked = True
Dim dr As Row= Tables("实名制考勤").AddNew()
dr("姓名") = r.text
dr("日期") = e.Form.Controls("DateTimePicker1").text
dr.save
End If
Next
End If
End If
Else
MessageBox.show("考勤日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
|
加好友 
发短信
Post By：2019/4/3 17:47:00 [显示全部帖子]
