输入焦点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：输入焦点