这种代码适合放到按钮中判断,而不是表事件,应该这样
Dim r As datarow= e.datarow
Dim cls() As String
Select Case e.DataTable.name
Case "Dwxx"
cls = New String(){"单位全称","单位简称"}
Case "Xcgl_jjd"
cls = New String(){"发放时间"}
Case "Xcgl_jjpf"
cls = New String(){"奖金名称","奖金类别","批复时间","批复金额"}
Case "Xcgl_kqtjb"
cls = New String(){"本月应出勤"}
Case "Xcgl_工资单"
cls = New String(){"身份证号"}
Case "员工信息表"
cls = New String(){"姓名","身份证号","员工类别"}
End Select
For Each c As String In cls
If r.isnull(c) Then
MessageBox.Show("[" & c & "]列不能为空!","提示",MessageBoxButtons.ok,MessageBoxIcon.warning)
'msgbox("[" & c & "]列不能为空!")
e.cancel = true
Return
End If
Next