老师，下面三段代码，前面省略，第一段代码可以执行，后面两段为什么又不执行呢，谢帮助检查，谢谢！！
Else If User.IsRole("集团财务") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("SH") Then
MessageBox.Show("集团总工办没有审核,不允许审核!.")
Else
If Tables("ZJJHB").current.IsNull("CWSH5") Then
MessageBox.Show("你没有审定金额,请检查!.")
Else
Tables("ZJJHB").Current("CWSH2") = User.Name
Tables("ZJJHB").Current.Save()
End If
End If
Next
Else If User.IsRole("部门负责人") Then
For Each r As Row In Tables("HTB").GetCheckedRows
Tables("HTB").Current("HTSH") = User.Name
Tables("HTB").Current.Save()
Next
Else If User.IsRole("部门负责人") Then
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
加好友 
发短信
Post By：2014/8/21 11:11:00 [只看该作者]
