- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 输入焦点 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95955)
-- 发布时间：2017/2/9 15:15:00
-- 输入焦点
请问老师，TextBox1和TextBox2可以进行输入，如何在操作完成一次后，保证输入焦点在TextBox1上，现在正常输入都可以，提示已领取后，焦点就到Textbox2上了，我想要的是每次操作完都确保焦点在1上。谢谢老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:领取表.table |
-- 发布时间：2017/2/9 15:18:00
--
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