主题：通过一列是否为空设定逻辑列

请教

If e.DataRow.IsNull("J") Then
   e.DataRow("JH") = True
End If

以上代码“JH”列为逻辑列，放在按钮里执行不了，请帮忙修改，感谢！！！

e.DataRow是e参数，表事件中才有，按钮事件怎么可以这样用？

应该这样：

If Tables("表名").Current.IsNull("J") Then
    Tables("表名").Current("JH") = True
End If

哦，可是还是执行不了，意思就是一列如果不为空，对应的逻辑值为真，

直接在表事件中也行，我那样写代码也是不行，请指教。感谢！！！

If Tables("表名").Current.IsNull("J")=false Then   '如果j列不为空
    Tables("表名").Current("JH") = True    '那么jh列勾选
End If

If Tables("表名").Current.IsNull("J")=false Then   '如果j列不为空
    Tables("表名").Current("JH") = True    '那么jh列勾选
End If

以上对单行可以执行，能否批量执行呢？请指教，  感谢！！！

放到表事件吧。

If e.DataCol.Name = "J" Then
    e.DataRow("JH") = e.DataRow.IsNull("J") = False
End If

如果用按钮，代码：

For Each r As Row In Tables("表名").Rows
    r("JH") = r.IsNull("J") = False
Next

所有的应该这样:

For Each dr As DataRow In DataTables("表名").DataRows
    If dr.IsNull("J")= False Then
        dr("jh") = True
    End If
Next

感谢；太牛了！