主题：请教关于判断控件值的问题

 Dim 111 As String = e.Form.Controls("TextBox1").Value '给当前窗口的控件赋值
Dim 222 As String = e.Form.Controls("TextBox2").Value

If 111 Is Nothing Then '判断如果该控件没有输入数值
    MessageBox.Show("你没有输入数据,请输入.", "错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    e.Form.Controls("TextBox1").Select() '提示并将光标焦点置于该控件
Else If 222 Is Nothing Then '判断如果该控件没有输入数值
    MessageBox.Show("你没有输入数据,请输入.", "执行错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    CurrentTable.Current("型号") =  e.Form.Controls("TextBox1").Value
    CurrentTable.Current("规格") =  e.Form.Controls("TextBox2").Value
    CurrentTable.Current.Save() '保存当前行
    CurrentTable.AddNew() '新增一行用于连续输入数据
    e.Form.Controls("TextBox1").Select() '焦点定位
End If

判断为空可以向上面那样。

不是因为不能使用select case，而是If更简单方便。