以下是引用爱相随在2014-8-20 16:58:00的发言：
请老师帮助看哈第二段代码为何不执行呢？？？
If User.IsRole("录入人") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SBR") = User.Name
r.Save()
End If
Next
ElseIf User.IsRole("录入人") Then
For Each r As Row In Tables("ZJSQB").GetCheckedRows
If r.IsNull("KSMC") OrElse r.IsNull("实际申请金额") Then
MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")
Else
r("SJSB") = User.Name
r.Save()
End If
Next
Else
MessageBox.show("你没有权限!")
End If
同一个条件，做两次判断？
加好友 
发短信
Post By：2014/8/20 17:00:00 [显示全部帖子]
