- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]在窗体中根据客户编号自动获取客户名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106624)
-- 发布时间：2017/9/12 22:08:00
-- [求助]在窗体中根据客户编号自动获取客户名称
此主题相关图片如下：qq图片20170912210405.png
如上图，我在这个窗体中设置一个combobox和一个textbox，
当我改变combobox里面的客户编号时，textbox里面的值也跟着改变对应的客户名称。
如何操作？
或者是不是有更直接的方法，可以想直接在表里面录入一样，
直接用动态字典来把客户编号显示成客户名称（保存在数据库的值还是客户编号）？
[此贴子已经被作者于2017/9/12 22:09:21编辑过]
-- 发布时间：2017/9/12 22:13:00
--
参考：http://www.foxtable.com/webhelp/scr/0937.htm
-- 发布时间：2017/9/12 22:19:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
但是我这个窗体是属于订单表的，客户编号和客户名称是取客户表的。
-- 发布时间：2017/9/12 22:26:00
--
用法都一样，数据来自哪里不是问题。
你也可以使用Find进行查找：http://www.foxtable.com/webhelp/scr/0396.htm
Dim dr As DataRow
dr = DataTables("客户").Find("客户编号 = \'" & e.Form.Controls("ComboBox1").value & "\'")
dr = DataTables("客户").Find("客户编号 = \'" & e.Form.Controls("ComboBox1").value & "\'")
If dr IsNot Nothing Then \'如果找到的话
e.Form.Controls("textbox1").value = dr("客户名称")
End If
e.Form.Controls("textbox1").value = dr("客户名称")
End If
-- 发布时间：2017/9/12 22:49:00
-- 回复：（有点蓝）用法都一样，数据来自哪里不是问题。...
此主题相关图片如下：2.png
但是为什么我放在 AfterLoad 事件里面不能生效呢？
还有当我点击上一条或吓一跳的时候，如何才能让客户名称也根据客户编号显示出来？
目前只有当选择客户编号后才显示。
[此贴子已经被作者于2017/9/12 23:10:44编辑过]
-- 发布时间：2017/9/12 23:13:00
--
写到上一条或下一条按钮中，或者组合框的ValueChanged事件中
-- 发布时间：2017/9/12 23:20:00
-- 回复：（有点蓝）写到上一条或下一条按钮中，或者组合...
ok
老师太敬业了，这么晚还在指导，这工具买的值！