|
Dim fdr As DataRow = DataTables("领取表").find("编码 = '" & e.sender.Text & "'")
Dim idx As Integer = Date.Today.Day
If e.keycode = 13 Then
e.cancel = True
If fdr("领取_" & idx) = True Then
Audio.play("5185.wav", AudioPlayMode.Background)
msgbox("您已经领取")
e.Form.Controls("TextBox1").Value = Nothing
Else
If fdr Is Nothing Then
e.form.controls("TextBox2").Text = Nothing
msgbox("没有找到")
e.Form.Controls("TextBox1").Value = Nothing
Else
fdr("领取_" & idx) = True
Audio.play("1712.wav", AudioPlayMode.Background)
e.form.controls("TextBox4").Text = fdr("姓名")
e.form.controls("TextBox3").Text = fdr("编码")
e.form.controls("TextBox5").Text = fdr("电话号码")
e.form.controls("TextBox6").Text = "未领取"
e.Form.Controls("TextBox1").Value = Nothing
End If
End If
End If
|
加好友 
发短信
Post By：2017/2/9 15:18:00 [显示全部帖子]
