在AfterOpenProjct时间中设置代码：
Dim cnt As integer = DataTables("某个表").Compute("Count(_Identify)", "审核= False Or 审核 Is NULL")
if cnt >0 then
MessageBox.Show("有" & cnt & "条记录没有审核！")
Tables("某个表").Filter = "审核= False Or 审核 Is NULL"
End If
加好友 
发短信
Post By：2012/11/19 8:35:00 [显示全部帖子]
