主题：并列条件语句

参考代码

 

Dim nms() As String = {"第一列","第二列","第三列"}

Dim ep As String
For Each nm As String In nms
    If e.DataRow.isnull(nm) Then
         ep= nm
         Exit For
    End If
Next

If ep > "" Then
    messagebox.show(ep & "不能为空")
    e.Cancel = True
End If

 代码就是这样写，有什么不行？

 

Dim nms() As String = {"日期","考核编号","线别"}

Dim ep As String = ""
For Each nm As String In nms
    If e.DataRow.isnull(nm) Then
         ep= nm
         Exit For
    End If
Next

If ep > "" Then
    messagebox.show(ep & "不能为空")
    e.Cancel = True
End If

 写到beforesavedatarow表事件去。

保存按钮代码xxx.Save的时候，会触发beforesavedatarow事件的。