Dim chk As WinForm.ComboBox
chk = Forms("账户管理").Controls("是否内部账号")
If chk.Value = "是" Then
Dim kjmc() As String '控件名称
Dim kjmcjh As String = "所属机构,机构编码,所属部门,部门编码,账户类别,账类编码,账户名称,余额方向,余额" '控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer = 0 To kjmc.Length - 1
If e.Form.Controls(kjmc(i)).text = "" Then
MessageBox.Show("内容不能为空")
e.Form.Controls(kjmc(i)).Select()
Exit For
End If
Next
If e.Form.controls("余额").text <> "" Then
Tables("账户管理表").AddNew()
Dim dr As DataRow
dr = Tables("账户管理表").Current.DataRow
dr("是否内部账号") = True
dr("所属机构") = e.Form.Controls("所属机构").text
dr("机构编码") = e.Form.Controls("机构编码").text
dr("所属部门") = e.Form.Controls("所属部门").text
dr("部门编码") = e.Form.Controls("部门编码").text
dr("账户类别") = e.Form.Controls("账户类别").text
dr("账类编码") = e.Form.Controls("账类编码").text
e.Form.Controls("账号").text = dr("账号")
dr("账户名称") = e.Form.Controls("账户名称").text
dr("余额方向") = e.Form.Controls("余额方向").text
dr("余额") = e.Form.Controls("余额").text
dr("开立日期") = e.Form.Controls("开立日期").text
End If
ElseIf chk.Value = "否"
Dim kjmc() As String '控件名称
Dim kjmcjh As String = "账户名称,账号,余额方向,余额" '控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer = 0 To kjmc.Length - 1
If e.Form.Controls(kjmc(i)).text = "" Then
MessageBox.Show("内容不能为空")
e.Form.Controls(kjmc(i)).Select()
Exit For
End If
Next
If e.Form.controls("余额").text <> "" Then
Tables("账户管理表").AddNew()
Dim dr As DataRow
dr("是否内部账号") = False
dr("账号") = e.Form.Controls("账号").text
dr("账户名称") = e.Form.Controls("账户名称").text
dr("余额方向") = e.Form.Controls("余额方向").text
dr("余额") = e.Form.Controls("余额").text
dr("开立日期") = e.Form.Controls("开立日期").text
End If
End If
加好友 
发短信
Post By：2013/9/18 6:54:00 [只看该作者]
我想在点击确定按钮时，如果其它所有控件内容不为空就新增一条记录，否则就不增加。而且账号控件只能输入数字字符，余额只能输入数字，如何解决，请指教。
此主题相关图片如下：新增账户.jpg