if 只会执行其中一个,每一段都要这样写
If User.IsRole("部门负责人") Then
For Each r As Row In Tables("HTB").GetCheckedRows
Tables("HTB").Current("HTSH") = User.Name
Tables("HTB").Current.Save()
Next
For Each r As Row In Tables("XMJDB").GetCheckedRows
Tables("XMJDB").Current("BMSH") = User.Name
Tables("XMJDB").Current.Save()
Next
Else
MessageBox.show("你无审核权限!")
End If
[此贴子已经被作者于2014-8-21 11:32:50编辑过]