老是，以下代码是菜单按钮“数据上报”的代码，其意思是只有属于”录入人“才有上报的权限，且“KSMC、SQJE、SBSM”不为空时才可以上报，执行后，非录入人点击“上报按钮”时提示信息不能上报，但是录入人点击时，“SBSM”为空时也能上报，且上报人是administrator,请帮助修改，谢谢老师。。。
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("录入人") Then
If Tables("ZJJHB").current.IsNull("KSMC") And Tables("ZJJHB").current.IsNull("SQJE") And Tables("ZJJHB").current.IsNull("SBSM") Then
MessageBox.Show("数据填列不完整,不允许上报,请检查!.")
Else
Tables("ZJJHB").Current("SBR") = UserName
Tables("ZJJHB").Current.Save()
End If
Else
MessageBox.show("你非数据填报人,无上报权限!")
End If
Next
还有，以下三段代码如何组合成一段代码呢？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("审核人1") Then
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("不能审核未经上报的行.")
Else
Tables("ZJJHB").Current("SHR") = UserName
Tables("ZJJHB").Current.Save()
End If
Else
MessageBox.show("你无审核权限!")
End If
Next
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("审核人2") Then
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("填报部门未审核,不能审核!.")
Else
Tables("ZJJHB").Current("SH") = UserName
Tables("ZJJHB").Current.Save()
End If
Else
MessageBox.show("你无审核权限!")
End If
Next
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If User.IsRole("审核人3") Then
If Tables("ZJJHB").current.IsNull("SBR") Then
MessageBox.Show("总工办未审核通过,不能审核!.")
Else
Tables("ZJJHB").Current("FKBM") = UserName
Tables("ZJJHB").Current.Save()
End If
Else
MessageBox.show("你无审核权限!")
End If
Next
[此贴子已经被作者于2014-7-31 14:00:15编辑过]
加好友 
发短信
Post By：2014/7/30 16:36:00 [显示全部帖子]
