以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选组合框问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70884)
--  作者：chenbh_yz
--  发布时间：2015/6/30 19:05:00
--  复选组合框问题

在窗口中建立一个复选组合框和组合框，复选组合框的取值列由组合框确定，在复选组合框 ENTER事件，填写代码：

 

Dim cmb As WinForm.CheckedComboBox =e.Sender
Dim str As String  =e.Form.Controls("ComboBox1").Value
cmb.DataSource = "dict" \'列表项目来自
cmb.DisplayMember = str \'设置显示列
cmb.ValueMember = str \'设置取值列
cmb.DataFilter = str & "<> \'noyhing\'"

 

为何需要选择2次组合框的选项后， 复选组合框才能真确显示列表项？ 请老师指教！
--  作者：大红袍
--  发布时间：2015/6/30 20:05:00
--  

没办法，不能这样设置，变一下

 

Dim cmb As WinForm.CheckedComboBox =e.Sender
Dim str As String  =e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("dict").GetComboListString(str, str & "<> \'noyhing\'") \'列表项目来自
--  作者：chenbh_yz
--  发布时间：2015/7/1 10:17:00
--  

谢谢版主！