| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100163) |
| -- 作者：ltty5200 -- 发布时间：2017/5/5 17:28:00 -- [求助] 我有一个窗口，用于设置表A显示那些列。这个窗口上有3个checkbox控件，2个radiobutton控件，1个button控件。 当选择checkbox1时，第一列，第二列，第三列显示， 当选择checkbox2时，第四列，第五列，第六列显示， 当选择checkbox3时，第七列，第八列，第九列显示。 当选择radiobutton1时，第一列，第二列，第三列，第四列，第五列显示， 当选择radiobutton2时，第六列，第七列，第八列，第九列显示。 代码如下： If chk1.checked=True Then Tables("表A").SetColVisibleWidth("第一列|98|第二列|98|第三列|98") End If If chk2.checked=True Then Tables("表A").SetColVisibleWidth("第四列|98|第五列|98|第六列|98") End If If chk3.checked=True Then Tables("表A").SetColVisibleWidth("第七列|98|第八列|98|第九列|98") End If If Forms("窗口").Controls("RadioButton1").checked=True Then Tables("表A").SetColVisibleWidth("第一列|98|第二列|98|第三列|98第四列|98|第五列|98") End If If Forms("窗口").Controls("RadioButton2").checked=True Then Tables("表A").SetColVisibleWidth("第六列|98第七列|98|第八列|98|第九列|98") End If 。。。。。。。。。。。。 现在问题来了： 1.当有2个checkbox选中的时候，它只执行最后一个chkbox被选中的代码，而不是两个都执行。比如我同时选中了chkbox1和chkbox2,结果只显示四、五、六列，一、二、三列就不显示。请问该如何修改代码，使所有被选中的chkbox的代码都执行？ 2.当我选中radiobutton，点击确定的时候，就出现运行错误，提示“已添加了具有相同键的项”，请问错在哪？ |
| -- 作者：有点色 -- 发布时间：2017/5/5 17:35:00 -- 代码这样写
Dim t As Table = Tables("表A") |