代码
If User.IsRole("审核人1") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("不能审核未经上报的行.")
Else
Tables("ZJJHB").Current("SHR") = User.Name
Tables("ZJJHB").Current.Save()
End If
Next
Else If User.IsRole("审核人2") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("填报部门未审核,不能审核!.")
Else
Tables("ZJJHB").Current("SH") = User.Name
Tables("ZJJHB").Current.Save()
End If
Next
Else If User.IsRole("审核人3") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("总工办未审核通过,不能审核!.")
Else
Tables("ZJJHB").Current("FKBM") = User.Name
Tables("ZJJHB").Current.Save()
End If
Next
Else
MessageBox.show("你无审核权限!")
End If