Dim bm As DataRow = DataTables("计算机用户资料").Find("部门 Is Null")
Dim xm As DataRow = DataTables("计算机用户资料").Find("姓名 Is Null")
Dim IPdz As DataRow = DataTables("计算机用户资料").Find("IP地址 Is Null")
Dim kjmm As DataRow = DataTables("计算机用户资料").Find("开机密码 Is Null")
Dim WW As DataRow = DataTables("计算机用户资料").Find("外网 Is Null")
If bm IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("部门未输入!","提示")
Return
ElseIf xm IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("姓名未输入!","提示")
Return
ElseIf IPdz IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("IP地址未输入!","提示")
Return
ElseIf kjmm IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("开机密码未输入!","提示")
Return
ElseIf WW IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("外网未输入!","提示")
End If