以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据单选框选择的内容，带出同一个物供号包括的款号内容，多值显示在单选框内  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124382)
--  作者：yetle
--  发布时间：2018/9/5 11:16:00
--  根据单选框选择的内容，带出同一个物供号包括的款号内容，多值显示在单选框内

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/9/5 11:39:00
--  
上传具体实例测试
--  作者：yetle
--  发布时间：2018/9/5 13:39:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.foxdb
--  作者：有点甜
--  发布时间：2018/9/5 15:12:00
--  

看不懂你例子的意思，跨表查询参考

 

http://www.foxtable.com/webhelp/scr/1451.htm

 
--  作者：yetle
--  发布时间：2018/9/5 17:04:00
--  
ComboBox5的ValueChanged代码如下：
Dim wgh As WinForm.ComboBox = Forms("下采购订单").Controls("ComboBox5")
Dim kh As WinForm.ComboBox = Forms("下采购订单").Controls("ComboBox6")
Dim khs As List(Of String)
khs = DataTables("销售订单明细").GetValues("款号","[款号] = \'" & wgh.text & "\'")\'希望ComboBox6的值等于GetValues获取的数组值

kh.text = khs


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2018/9/5 17:06:36编辑过]
--  作者：有点甜
--  发布时间：2018/9/5 17:10:00
--  
Dim wgh As WinForm.ComboBox = Forms("下采购订单").Controls("ComboBox5")
Dim kh As WinForm.ComboBox = Forms("下采购订单").Controls("ComboBox6")
Dim khs = DataTables("销售订单明细").GetComboListString("款号","[款号] = \'" & wgh.text & "\'")\'希望ComboBox6的值等于GetValues获取的数组值
kh.text = khs