Foxtable(狐表)用户栏目专家坐堂 → 如何在窗口中设计查询按钮?


  共有1763人关注过本帖树形打印复制链接

主题:如何在窗口中设计查询按钮?

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
如何在窗口中设计查询按钮?  发帖心情 Post By:2019/10/5 14:48:00 [只看该作者]

假设表ABCDEFG  通过订单编号已关联

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

如何设计点击查询按钮后,根据此订单编号将对应的表ABCDEFG中的某字段内容填充到窗口的textbox1控件里?

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/10/5 14:54:00 [只看该作者]

http://www.foxtable.com/webhelp/index.htm?page=2263.htm

这里写的自动填充是指同一个表中的吧,如果是多个表中根据订单编号查询的记录,将对应列的内容填进来该怎么写咧

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/10/5 15:20:00 [只看该作者]

Dim dr As DataRow = DataTables("A").Find("条件")

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

代码肿么写,多谢多谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By: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)

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

 回到顶部