以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  CheckedListBox 动态加载不同数数据 异常  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153948)

--  作者:ehbx_ysj
--  发布时间:2020/8/28 14:34:00
--  CheckedListBox 动态加载不同数数据 异常
我在窗口中对CheckedListBox 动态修改加载数据 第二次加载时会报错 如何解决

Dim clb_Filter As WinForm.CheckedListBox = e.Form.Controls("clb_范围")
If idx=2 Then \'加载人员
    clb_Filter.Items.Clear()   
    clb_Filter.DisplayMember = "OpName" \'设置显示列
    clb_Filter.ValueMember = "OpName" \'设置取值列
    clb_Filter.DataSource ="SysUser_Info"   \'列表项目来自于客户表
    clb_Filter.Visible=True
Else If idx=3 Then  \'加载部门
    clb_Filter.Items.Clear()    
    clb_Filter.DisplayMember = "部门名称" \'设置显示列
    clb_Filter.ValueMember = "部门名称" \'设置取值列
    clb_Filter.DataSource ="DICT_BMGL"   \'列表项目来自于客户表
    clb_Filter.Visible=True    
end if 



图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2020/8/28 14:43:00
--  
去掉clb_Filter.Items.Clear()  
--  作者:ehbx_ysj
--  发布时间:2020/8/28 14:50:00
--  
去掉没用  这句是出现错误 后  加上去的
[此贴子已经被作者于2020/8/28 14:54:06编辑过]

--  作者:有点蓝
--  发布时间:2020/8/28 15:05:00
--  
所有的这句代码都去掉。我测试没有问题,上传实例说明

另外设置了DataSource ,就不能再使用combolist
[此贴子已经被作者于2020/8/28 15:05:09编辑过]

--  作者:ehbx_ysj
--  发布时间:2020/8/28 15:06:00
--  
加载一个 是没问题 你放个按钮 切换一下 肯定出问题
[此贴子已经被作者于2020/8/28 15:11:16编辑过]

--  作者:有点蓝
--  发布时间:2020/8/28 15:31:00
--  
我测试没有问题,上传实例说明