以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求老师帮忙！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95763)
--  作者：shanyongdong
--  发布时间：2017/2/4 16:28:00
--  求老师帮忙！

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:领取表.table

[此贴子已经被作者于2017/2/4 16:28:42编辑过]
--  作者：有点色
--  发布时间：2017/2/4 16:38:00
--  

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
--  作者：shanyongdong
--  发布时间：2017/2/4 20:54:00
--  
谢谢老师，实现功能了，我再仔细读一下代码，吸收一下，