Foxtable(狐表)用户栏目专家坐堂 → CheckedListBox 动态加载不同数数据 异常


  共有2199人关注过本帖树形打印复制链接

主题:CheckedListBox 动态加载不同数数据 异常

帅哥哟,离线,有人找我吗?
ehbx_ysj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1150 威望:0 精华:0 注册:2020/5/9 9:40:00
CheckedListBox 动态加载不同数数据 异常  发帖心情 Post By:2020/8/28 14:34:00 [只看该作者]

我在窗口中对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 



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



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/28 14:43:00 [只看该作者]

去掉clb_Filter.Items.Clear()  

 回到顶部
帅哥哟,离线,有人找我吗?
ehbx_ysj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1150 威望:0 精华:0 注册:2020/5/9 9:40:00
  发帖心情 Post By:2020/8/28 14:50:00 [只看该作者]

去掉没用  这句是出现错误 后  加上去的
[此贴子已经被作者于2020/8/28 14:54:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/28 15:05:00 [只看该作者]

所有的这句代码都去掉。我测试没有问题,上传实例说明

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

 回到顶部
帅哥哟,离线,有人找我吗?
ehbx_ysj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1150 威望:0 精华:0 注册:2020/5/9 9:40:00
  发帖心情 Post By:2020/8/28 15:06:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/28 15:31:00 [只看该作者]

我测试没有问题,上传实例说明

 回到顶部