如下是DataColChanging 的完整代码：
If e.DataRow("年月") = ""
If e.DataCol.name <> "年月" And e.DataCol.name <> "无薪假天数" And e.DataCol.name <> "确认" Then
If e.NewValue > 0 Then
MessageBox.Show("必须先输入年月!")
e.Cancel = True
End If
End If
End If
If e.DataRow("姓名") = ""
If e.DataCol.name <> "年月" And e.DataCol.name <> "姓名" And e.DataCol.name <> "无薪假天数" And e.DataCol.name <> "确认" Then
If e.NewValue > 0 Then
MessageBox.Show("必须先输入姓名!")
e.Cancel = True
End If
End If
End If
If e.DataCol.name <> "年月" And e.DataCol.name <> "姓名" And e.DataCol.name <> "薪假天数" And e.DataCol.name <> "确认" And e.DataCol.name <> "薪假类型" Then
If e.newvalue > 1
MessageBox.Show("数据不允许大于1!")
e.Cancel = True
End If
End If
加好友 
发短信
Post By：2018/2/1 15:57:00 [只看该作者]
