以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]CheckedComboBox的过滤条件中能不能用变量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62630)

--  作者:aiwai811
--  发布时间:2015/1/5 16:15:00
--  [讨论]CheckedComboBox的过滤条件中能不能用变量
一个单选下拉框,一个复选下拉框。要让单选下拉框的内容改变时判断单选下拉框的内容,取内容所对应的代码。将代码赋值给变量a。然后在复选下拉框的过滤条件属性中,添加过滤条件,[代码]=a。这样就会报错,该怎么写代码呢??

Dim n As Integer = Tables("专业种类字典").Rows.Count
Dim i As Integer = 0
Do While i <= n-1
If e.Form.Controls("zyzl").text = Tables("专业种类字典").Rows(i)("专业种类")
kzdm = Tables("专业种类字典").Rows(i)("代码")
End If 
i = i+1
Loop
从专业种类字典中获取到 选中内容的代码字段中的值。赋值到public变量kzdm。
这个代码对应n个值。要在复选下拉框中能显示kzdm说对应d值!
[此贴子已经被作者于2015-1-5 16:39:07编辑过]

--  作者:jialihaha
--  发布时间:2015/1/5 16:20:00
--  
”[代码]=  “ & a
--  作者:Bin
--  发布时间:2015/1/5 16:21:00
--  
上例子. 要用代码完成.   属性里的设置是只能写字符串的.