以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在窗口中设计查询按钮？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141580)
--  作者：初心不改再说未来
--  发布时间：2019/10/5 14:48:00
--  如何在窗口中设计查询按钮？
假设表ABCDEFG  通过订单编号已关联

现有一个窗口，里面有textbox1......至textbox10，共10个控件

如何设计点击查询按钮后，根据此订单编号将对应的表ABCDEFG中的某字段内容填充到窗口的textbox1控件里？
--  作者：初心不改再说未来
--  发布时间：2019/10/5 14:54:00
--  
http://www.foxtable.com/webhelp/index.htm?page=2263.htm

这里写的自动填充是指同一个表中的吧，如果是多个表中根据订单编号查询的记录，将对应列的内容填进来该怎么写咧
--  作者：有点酸
--  发布时间：2019/10/5 15:03:00
--  
多少个表都是一样：

Dim dr As DataRow = DataTables("A").Find("条件")
if dr isnot Nothing then
   e.form.Controls("TextBox1").value = dr("某列1")
else
   e.form.Controls("TextBox1").value = nothing
end if

dr = DataTables("b").Find("条件")
if dr isnot Nothing then
   e.form.Controls("TextBox2").value = dr("某列x")
else
   e.form.Controls("TextBox2").value = nothing
end if
--  作者：初心不改再说未来
--  发布时间：2019/10/5 15:20:00
--  
Dim dr As DataRow = DataTables("A").Find("条件")

老师这个条件是：当前选中编号

代码肿么写，多谢多谢
--  作者：有点酸
--  发布时间：2019/10/5 15:30:00
--  
如果编号是数值：
Dim Filter As String = "编号 = " & Tables("xxx").Current("编号")
Dim dr As DataRow = DataTables("A").Find(Filter)

如果编号是字符：
Dim Filter As String = "编号 = \'" & Tables("xxx").Current("编号") & "\'"
Dim dr As DataRow = DataTables("A").Find(Filter)

老用户不应该出现这种问题，因为帮助处处都是这种例子，如果不会，应该重新系统学习帮助，否则一分钟能解决的问题，你几天也解决不了。