以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中combobox联动  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60709)
--  作者：ShotHit
--  发布时间：2014/11/29 15:04:00
--  窗口中combobox联动
在窗体中 其中控件combobox （区域） SelectIndexChanged事件中设置：

Dim cbArea As WinForm.ComboBox = e.form.Controls("cbCusSalesArea")
cbArea.Combolist = DataTables("Tb_UserInfo").GetComboListString("user_area") 
Dim cbUser As WinForm.ComboBox = e.form.Controls("cbCusSalesUser")
Dim strFind = "[user_area] = \'" & cbArea.Text & "\'"
cbUser.ComboList = DataTables("Tb_UserInfo").GetComBoListString("user_name",strFind)

在点击选择这个combobox后，系统提示：
设置DataSource属性后无法修改项集合。
并且，错误提示无法关闭。只能结束进程才行。

注：其他地方都没有对这个列进行combolist进行设置。

请问，如何实现窗体中如何实现Combobox的二级联动？（根据区域找到区域下面的人员）

以上，谢谢
--  作者：czy
--  发布时间：2014/11/29 15:10:00
--  
Dim cbArea As WinForm.ComboBox = e.form.Controls("cbCusSalesArea")
cbArea.Combolist = DataTables("Tb_UserInfo").GetComboListString("user_area")

e.form.Controls("cbCusSalesUser").Combolist = DataTables("Tb_UserInfo").GetComBoListString("user_name","user_area = \'" & cbArea.value & "\'")
--  作者：ShotHit
--  发布时间：2014/11/29 15:15:00
--  
你这个和我上面好像区别不大。
我上面的代码 那个
strFind应为
Dim strFind As String = ...
这个地方有语法错误外。

你这个貌似也会出现
修改DtataSource属性后无法修改集合。

主要这个错误，我想是  有个对象的dataSource属性  设置了多次
--  作者：狐狸爸爸
--  发布时间：2014/11/29 16:52:00
--  
错误的意思是，你既然用代码设置列表项目，那么在设计窗口的时候，就不应该给这个combobox设置列表项目来自某个表，取消相关设置就行了
--  作者：ShotHit
--  发布时间：2014/11/30 10:32:00
--  
我检查了下，之前切实有两处地方设置，但是我删除其他地方的设置
只保留在设计窗口里面设置了这一处数据列表来源。
问题依旧。
--  作者：有点甜
--  发布时间：2014/11/30 10:41:00
--  
 回复5楼，如果你用代码，就不能设置数据列来源。