- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111254)
-- 发布时间：2017/12/18 18:24:00
-- [求助]
大神们，我想只输入身份证号码，然后点击查询按钮，其他列的值就直接对应到文本框里。怎么才能做到呢？
此主题相关图片如下：求助.jpg
-- 发布时间：2017/12/18 19:04:00
--
上实例。
-- 发布时间：2017/12/18 20:16:00
--
参考：http://www.foxtable.com/webhelp/scr/0396.htm
Dim dr As DataRow
dr = DataTables("表A").Find("身份证号 = \'" & e.Form.Controls("TextBox1").Text & "\'",)
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("TextBox2").Text= dr("姓名")
e.Form.Controls("TextBox3").Text= dr("住址")
End If
dr = DataTables("表A").Find("身份证号 = \'" & e.Form.Controls("TextBox1").Text & "\'",)
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("TextBox2").Text= dr("姓名")
e.Form.Controls("TextBox3").Text= dr("住址")
End If
TextBox1、TextBox2、TextBox3分别是对应的窗口控件的名称，自己改改
-- 发布时间：2017/12/19 8:59:00
--
天呐，你怎么这么厉害
