- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于CheckedListBox控件选中问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111155)
-- 发布时间：2017/12/16 0:34:00
-- 关于CheckedListBox控件选中问题
在CheckedListBox控件的ItemCheck事件中写了如下代码：
Dim tzsx As WinForm.RadioButton = e.Form.Controls("tiaozhengliedeshunxuRadioButton")
If tzsx.Checked Then
If e.Checked Then
Dim cst As WinForm.CheckedListBox = e.sender
For i As Integer = 0 To cst.Items.count - 1
If i <> e.Index Then
cst.SetItemChecked(i, False)
End If
Next
End If
End If
Dim t As Table = e.Form.controls("Table1").Table
t.Select(0,e.Sender.SetItemChecked)
t.LeftVisibleCol = e.Sender.SetItemChecked
运行后出错，看看哪有问题？
此主题相关图片如下：58777.jpg
此主题相关图片如下：588888.jpg
[此贴子已经被作者于2017/12/16 0:36:25编辑过]
-- 发布时间：2017/12/16 9:40:00
--
t.Select(0,e.Index)
t.LeftVisibleCol = e.Index
-- 发布时间：2017/12/16 15:23:00
--
单击移动列按钮后怎么设置成窗体表中的选择列一直为CheckedListBox控件中所选中的列呢？
-- 发布时间：2017/12/16 15:45:00
--
上传实例说明
-- 发布时间：2017/12/16 16:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:显示隐藏列 (10).table |
-- 发布时间：2017/12/16 16:24:00
--
测试没有问题啊。
你是说CheckedListBox选中几列，表格也要选中几列？这种只能是选择连续的列才可以，无法跨列选中
-- 发布时间：2017/12/16 16:30:00
--
选中CheckedListBox控件中的列后窗体表是可以同时选中，不过如果单击向上或向下按钮移动列后窗体表中的列会出现改变成其他行了
-- 发布时间：2017/12/16 16:52:00
--
上移这2句代码调换一下位置，下移参考自己做
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim i = clist.SelectedIndex
If i > 0 Then
Dim s1 = clist.Items(i)
Dim s2 = clist.Items(i-1)
Dim c1 = clist.GetItemChecked(i)
Dim c2 = clist.GetItemChecked(i-1)
clist.Items(i) = s2
clist.Items(i-1) = s1
clist.SetItemChecked(i, c2)
clist.SetItemChecked(i-1, c1)
e.Form.controls("Button1").performclick
clist.SelectedIndex = i-1
End If