主题：求老师帮忙！

在窗口编码中输入字符，回车后，查询表中对应的行，读取当前日期，在对应的位置标记True，同时在窗口显示对应的姓名。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:领取表.table

KeyDown事件

 

If e.keycode = 13 Then
    Dim fdr As DataRow = DataTables("领取表").find("编码 = '" & e.sender.Text & "'")
    If fdr Is Nothing Then
        e.form.controls("TextBox2").Text = Nothing
        msgbox("没有找到")
    Else
        Dim idx As Integer = Date.Today.Day
        fdr("领取_" & idx) = True
        e.form.controls("TextBox2").Text = fdr("姓名")
    End If
    e.cancel = True
End If

谢谢老师，实现功能了，我再仔细读一下代码，吸收一下，