- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复选框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147279)
-- 发布时间：2020/3/13 9:23:00
-- [求助]复选框
老师好，我想把上下移动过后的列再传道给窗口表2。
下面代码是筛选过后的代码。
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
e.Form.Controls("Table2").Table.Cols(clist.items(i)).Visible = clist.GetItemChecked(i)
Next
-- 发布时间：2020/3/13 10:25:00
--
没看懂，截图或者上传实例说明
-- 发布时间：2020/3/13 11:55:00
--
此主题相关图片如下：列位置调整.png
-- 发布时间：2020/3/13 12:06:00
--
dim str as string
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
if clist.GetItemChecked(i)
str = str & "|" & clist.items(i) & "|100"
end if
Next
str = str.trim("|")
e.Form.Controls("Table2").Table.SetColVisibleWidth(str)
-- 发布时间：2020/3/13 12:53:00
--
老师，代码应该放在哪里。
-- 发布时间：2020/3/13 13:21:00
--
替换1楼的代码
-- 发布时间：2020/3/13 13:28:00
--
老师，报错。
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,视图管理,Button4,Click
详细错误信息：
未将对象引用设置到对象的实例。
-- 发布时间：2020/3/13 13:31:00
--
dim str as string = ""
-- 发布时间：2020/3/13 13:53:00
--
老师，错误提示没有了，复选列表框没有和窗口表同步移动列位置。
-- 发布时间：2020/3/13 13:54:00
--
复选框没有勾选吧