主题：请问哪里有错

Return c

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

提一个问题，却没有关于设计目的和错误的任何说明。

 

楼主要养成好习惯，既然有错，就告诉别人错误提示，或者出错的地方，方便别人快速定位问题，而不是让别人去猜。

 

想帮你解决过问题，还得建立表，还得输入测试数据，再运行你的代码，看看代码运行是否出错，如果那么没有错，那么可能是逻辑问题，业务逻辑也只有你自己清楚，别人怎么知道！

 

你是在寻求帮助，你越快让别人能明白你的问题，才越有人愿意帮你解决问题，才能更快更好地帮你解决问题。

没有具体的错误说明，人家也只能蒙：

 

 

Dim cs() As String = {"日期","班级","科目","节次","事由","申请人","安排人","上课人","所上科目"}
Dim dr As Row  = Tables("代课").Current
For Each c As String In cs
    If dr.IsNull(c) Then
        msgbox("请注意:代课信息有空,审核不能通过")
        Return
    End If
Next
If User.Group = "业务主管" Or user.group = "值周领导" Then
    dr("审核人") = User.Name
    dr("审核") = True
    dr.Locked = True
    dr.Save
Else
    MessageBox.show("你无审批权限!")
End If

哦,谢谢!,下次有问题就讲清楚点.