以文本方式查看主题

-  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=190587)

--  作者:江南小镇
--  发布时间:2024/2/24 13:30:00
--  [求助]组合框
老师好,组合框2根据组合框1来显示下一级字段,怎样从外部数据表中获取。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:组合框级联显示.rar


--  作者:有点蓝
--  发布时间:2024/2/24 13:55:00
--  
http://www.foxtable.com/webhelp/topics/1523.htm,里面的GetComboListString改为SQLGetComboListString:http://www.foxtable.com/webhelp/topics/2910.htm
--  作者:江南小镇
--  发布时间:2024/2/27 7:47:00
--  
老师,组合框2不显示字段,不知道那里不对。

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim qzf1 As New SQLCommand
Dim qz2 As DataTable
qzf1.C
qzf1.CommandText = "SELECT DIS TINCT 客户供应商 ,企业经办人 Fr om {通讯录}"
qz2 = qzf1.ExecuteReader
Dim cs2 As String = qz2.GetComboListString("客户供应商", "企业经办人 = \'" & str & "\'")                              
e.Form.Controls("ComboBox2").ComboList = cs2

--  作者:有点蓝
--  发布时间:2024/2/27 8:33:00
--  
代码放到哪个控件的哪个事件?
--  作者:江南小镇
--  发布时间:2024/2/28 7:44:00
--  
以下是引用江南小镇在2024/2/27 7:47:00的发言:
老师,组合框2不显示字段,不知道那里不对。

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
Dim qzf1 As New SQLCommand
Dim qz2 As DataTable
qzf1.C
qzf1.CommandText = "SELECT DIS TINCT 客户供应商 ,企业经办人 Fr om {通讯录}"
qz2 = qzf1.ExecuteReader
Dim cs2 As String = qz2.GetComboListString("客户供应商", "企业经办人 = \'" & str & "\'")                              
e.Form.Controls("ComboBox2").ComboList = cs2



老师,我摆在Enter事件中



--  作者:有点蓝
--  发布时间:2024/2/28 8:30:00
--  
请上传实例说明
--  作者:江南小镇
--  发布时间:2024/2/28 22:50:00
--  
老师好,组合框2无法显示数据。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:组合框.rar


--  作者:有点蓝
--  发布时间:2024/2/29 8:50:00
--  
什么乱七八糟的,组合框1显示的是供应商,组合框2却按管理员进行查询
--  作者:江南小镇
--  发布时间:2024/2/29 10:47:00
--  
老师,管理员是通讯录表的一个列。
--  作者:cd_tdh
--  发布时间:2024/2/29 10:57:00
--  

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


没有符合条件的行啊,e.Form.Controls("ComboBox1").Value 是江苏,管理员列江苏对应的值为:苏州|太仓

你是这个意思吧?

图片点击可在新窗口打开查看此主题相关图片如下:22222222.jpg
图片点击可在新窗口打开查看

e.Form.Controls("ComboBox2").ComboList = dt.GetComboListString ("管理员", "[客户供应商] =\'" &  str & "\'")
[此贴子已经被作者于2024/2/29 11:03:38编辑过]