主题：逻辑列问题

表中有两列：“审核”列和“记录”列，“审核”列为逻辑型，“记录”列为字符型。√选“审核”列，“记录”列自动留下当前用户名，通过代码设置实现没问题。现在将此两列绑定在窗口的控件中，再√选“审核”列，“记录”列没反应。我在“审核”的控件上设置如下代码也不行

Dim chk As WinForm.CheckBox
chk = Forms("不合格品处理").Controls("审核")
If chk.Checked = True  
    Forms("不合格品处理").Controls("记录") = _UserName & " " & Date.Now
Else   
    Forms("不合格品处理").Controls("记录") = Nothing
End If

 我测试没有问题，楼主的狐表是否最新版本的？之前有个版本绑定列无效。

呵呵，是控件的值等于，不是控件等于

 

Dim chk As WinForm.CheckBox
chk = Forms("不合格品处理").Controls("审核")
If chk.Checked = True  
    Forms("不合格品处理").Controls("记录").Value = _UserName & " " & Date.Now
Else   
    Forms("不合格品处理").Controls("记录").Value = Nothing
End If

 

记录文本框还是没有反应

在表中操作 PrepareEdit事件正常

If e.Col.Name = "审核" Then
    If e.Row("审核") = True Then
       e.Row("记录") = _UserName & " " & Date.Now
    Else
       e.Row("记录") = Nothing
    End If
End If

如果不绑定到表,文本框可正常显示,是否BUG. 我26日版本到期,急等.我用的是最新版

您自己的问题，代码要写在DataColChanged事件中，如下代码加绑定即可：

 

If e.dataCol.Name = "审核" Then
    If e.dataRow("审核") = True Then
        e.dataRow("记录") = _UserName & " " & Date.Now
    Else
        e.dataRow("记录") = Nothing
    End If
End If

谢谢陈版