主题：多选框

    你好，请问在窗口中的多选框的显示问题，需要解决的问题是：

在窗口中，多选框A与表A的某列关联了，当选中多选框A时，在相应字段设定了相关的字符，现在需要的解决的问题是，

当表中的某字段已经有了相关的字符后，在窗口的多选框中能不能显示出来，例如，设定当表A中字符为符合时，当选中时，多选框A能自动显示已经选中过状态，谢谢。

    我的问题是：CheckBox中选中时，是打上钩的，我想在表A中如果已经是选中的结果，我想问能不能在是选中的结果时，其自动重新变成打勾，谢谢！

例子：我在CheckBox中写上这样的代码：If e.Sender.Checked=True Then
     Tables("电梯信息表") .Current.DataRow("玻璃门")="符合"
     Tables("电梯信息表") .Current.DataRow("玻璃门结论")="合格"
Else
   Tables("电梯信息表") .Current.DataRow("玻璃门")="/"
    Tables("电梯信息表") .Current.DataRow("玻璃门结论")="/"
End If

我想，当信息表中字段是符合时，当我选中该行时，CheckBox能够打上钩。谢谢！

   这段代码报错了，checked不是wimford的成员，谢谢！

If Forms("自检记录信息").Opened Then
   forms("自检记录信息").Controls("CheckBox7").Checked = (e.Table.Current("玻璃门") = "符合")
   forms("自检记录信息").Controls("CheckBox3").Checked = (e.Table.Current("共用机房") = "符合")
    forms("自检记录信息").Controls("CheckBox4").Checked = (e.Table.Current("紧急电动") = "符合")
   forms("自检记录信息").Controls("CheckBox7").Checked = (e.Table.Current("机房高度差") = "符合")
End If

我写了这个程序，需要实现的功能好像能够实现了，就是在程序进行保存时出现了报错，提示 “列“玻璃门”不属于表 设备基础信息”。请指教，谢谢！我这程序关联了一个查询表。

    那我只有一个表有那个列，那该怎么办，需要关联进去吗？

 

这段代码不就是在自检记录信息表上面的吗？

你之前给我的代码基本上能够满足了我的需求了，就是我的程序中包含了三个表，但是，我针对的是其中一个表而尔，当我写上上面的代码时，就提示错误了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子图.rar

我发一个图片给你，当我在一个自检自录信息表中操作你的程序没问题，但是，当需要转到另外一个关联表时就报错，是不是程序放的位置有点问题。

明白，谢谢！

对应的表的currentchanged中，写上了以下代码，就出现了重复了。尝试了一下，功能还是不是我需要的，大概是我没说清楚。

If Forms("自检记录信息").Opened Then
   forms("自检记录信息").Controls("CheckBox7").Checked = (e.Table.Current("玻璃门") = "符合")
   End If
If Forms("自检记录信息").Opened() Then
 Forms("自检记录信息").Controls("CheckBox1").Checked = False
End If

我需要的需求是：在多选框中，以字段为单位，如果该字段为true，则显示打钩，如果该字段为false，则不显示，如何实现。

现在是一保存就全部都变成一样了。