学会调试:
http://www.foxtable.com/webhelp/topics/1485.htm
msgbox(e.DataTable.Name) 是下面的表名吗
If e.DataTable.Name = "日志内容" Then '如果是需要处理的表
msgbox(Forms("导航窗口").Opened) 窗口状态
If Forms("导航窗口").Opened Then '如果这个窗口处于打开状态
msgbox(
e.DataCol.name) 触发的是哪个列
If e.DataCol.name = "已审核" Then '如果是审核列勾选触发的事件
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
msgbox(cnt2 ) 统计结果是否正常
Forms("导航窗口").Controls("TopicBar1").Pages("日志统计信息").Links("已审核").Text = "已审核(" & cnt2 & ")" '已经添加过,没有必要重复添加了。直接改文本内容即可
End if
End If
End If