主题：判断与添空值

If rq.Value Is Nothing Then
e.Cancel= True
End If

 

1、判断输入框内容是否为空：

Dim rq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim jz As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
Dim sl As WinForm.TextBox = e.Form.Controls("TextBox1")
If rq.value Is Nothing OrElse jz.value Is Nothing OrElse sl.value Is Nothing
   messagebox.show("日期价格数量能为空")
End If

 

 

2、其实你不用判断输入框，因为你已经绑定了，这样更简单：

 

Dim r As Row = Tables("表A").current
If r.IsNull("第一列") OrElse r.IsNull("第二列") OrElse  r.IsNull("第三列") Then
   messagebox.show("日期价格数量能为空")
End If

 

 

 

我知道直接绑定没什么问题，我也有在其他窗口中有用到，这个问题的出现是因为我要进行其他操作，要设定变量，所以才出现这个问题的。