Dim cs() As String = {"日期","班级","科目","节次","事由","申请人","安排人","上课人","所上科目"}
Dim dr As Row = Tables("代课").Current
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
加好友 
发短信
Post By：2016/9/11 8:16:00 [只看该作者]
