|
Dim cs() As String = {"日期","班级","科目","节次","事由","申请人","安排人","上课人","所上科目"}
Dim dr As Row = Tables("代课").Current
if dr isnot nothing
For Each c As String In cs
If dr.IsNull(c) Then
msgbox("请注意:代课信息有空,审核不能通过")
Return
Else
If User.Group = "业务主管" Or user.group = "值周领导" Then
Tables("代课").Current("审核人") = User.Name
Tables("代课").Current("审核") = True
Tables("代课").Current.Locked = True
dr.Save
Else
MessageBox.show("你无审批权限!")
End If
End If
Next
end if
|
加好友 
发短信
Post By：2016/9/11 9:10:00 [显示全部帖子]
