老师，下面的代码从总工办开始以后的代码都不执行，而前面的代码又可以执行，都是一样的，为什么呢？？谢指导，谢谢
'以下代码为资计计划表审批流程
Else If User.IsRole("部门负责人") 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("造价合约部") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("SHR") Then
MessageBox.Show("部门负责人未审核!.")
Else
If Tables("ZJJHB").current.IsNull("合约意见") Then
MessageBox.Show("你没有签暑审核意见,请检查!.")
Else
Tables("ZJJHB").Current("合约部") = User.Name
Tables("ZJJHB").Current.Save()
End If
End If
Next
Else If User.IsRole("总工办") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If Tables("ZJJHB").current.IsNull("合约部") Then
MessageBox.Show("造价合约部没有审核,不允许审核!.")
Else
If Tables("ZJJHB").current.IsNull("SHYJ") Then
MessageBox.Show("你没有审定金额,请检查!.")
Else
Tables("ZJJHB").Current("SH") = User.Name
Tables("ZJJHB").Current.Save()
End If
End If
Next
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
For Each r As Row In Tables("XMJDB").GetCheckedRows
Tables("XMJDB").Current("BMSH") = User.Name
Tables("XMJDB").Current.Save()
Next
Else
MessageBox.show("你无审核权限!")
加好友 
发短信
Post By：2014/8/21 11:11:00 [显示全部帖子]
