主题：页面集合控件页面卡标签切换时，表中数据被莫名删除

1、CheckedListBox控件不要绑定表列。多个控件绑定同一个列，你要做什么？

 

2、如果你需要把各个控件的值合并起来，你需要些代码处理的。如

 

tables("表A").current("第一列") = 控件1.value & vbcrlf & 控件2.value

 

写在各个控件的textchanged事件，即可。

 

你的表1是什么表？你希望表1的哪些行勾选？你现在做报错还是怎样？

textChanged事件，写代码如

 

If e.form.controls("CheckedListBox1").text > "" then
    r("是否归档") = True

Else

    r("是否归档") = False

End If

没看懂你要做什么。举例说明：点击表格哪行，点击哪个控件哪个值以后，得到什么效果。

 

没看懂你什么意思，没看懂你为什么这样做。

 

Tables("表1").current("是否归档") = e.Checked

当前行设置或者取消勾选，参考下面代码

 

Tables("表1").current("是否归档") = not e.Checked

删除你本来的代码，改成

 

Tables("表1").current("是否归档") = not e.Checked

下表，加入一列，把checkedListBox的值赋值过去。如

 

Tables("表1").current("第四列") = e.sender.value

 

然后，表格datacolchanging事件写代码，如

 

If e.datacol.name = "是否归档" andalso e.datarow("第四列") <> Nothing Then

    msgbox("文件已经坚定" & e.datarow("第四列"))

    e.cancel = true

End If

完全没看懂你要做什么啊。

 

能不能举例说明啊。上面做什么操作，勾选哪些，下面要做到什么效果，哪些表格要做到哪些效果？