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