老师： 我设置了一键审核按钮，代码以下：
If User.IsRole("审核") = True Then
Dim rs As List(of Row) = Tables("产品不良记录").GetCheckedRows()
For Each r As Row In rs
r("审核人") = User.Name
r("审核日期") = Date.Today()
Next
Else
MessageBox.show("你无审核权限!", "提示")
End If
同时也设置取消审核按钮，代码如下：
If User.IsRole("审核") = True
For Each r As Row In Tables("产品不良记录").Rows
If r.Checked = False
Tables("产品不良记录").Current("审核人") = Nothing
Tables("产品不良记录").Current("审核日期") = Nothing
End If
Next
Else
MessageBox.show("你无审核权限!", "提示")
End If
但是取消审核按钮，对未选中的行不能实行一键取消审核，求指点
盼复！为谢！
加好友 
发短信
Post By：2017/3/7 17:43:00 [只看该作者]
