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
|