以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]TEXTBOX输入编号后,找到对应的记录,该怎么做?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15835)

--  作者:平淡的流年
--  发布时间:2012/1/13 13:15:00
--  [求助]TEXTBOX输入编号后,找到对应的记录,该怎么做?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20120113131113.png
图片点击可在新窗口打开查看

 

 

如上图所示,如果用户输入   编号   以后,编号存在,  下面则显示对应记录中的其他列

 

有知道的告诉一下.谢谢了.


--  作者:blackzhu
--  发布时间:2012/1/13 13:37:00
--  

这个意思?

 

Dim Txt As String = Forms("窗口2").Controls("TextBox1").Value
Dim dr As DataRow = DataTables("表名").Find("列名=\'" & Txt & "\'")
If dr IsNot Nothing Then
    MessageBox.Show("找到")
End If


--  作者:czy
--  发布时间:2012/1/13 18:36:00
--  

Dim Txt As String = Forms("窗口2").Controls("TextBox1").Value
Dim dr As DataRow = DataTables("表名").Find("列名=\'" & Txt & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("Label1").text = dr("姓名")

……
End If