我有一个窗口，用于设置表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，点击确定的时候，就出现运行错误，提示“已添加了具有相同键的项”，请问错在哪？
加好友 
发短信
Post By：2017/5/5 17:28:00 [只看该作者]
