主题：[求助]控件输入内容控制

Dim canAddNew As Boolean = True

For Each c As Col In Tables("账户管理表").Cols

    If e.Form.Controls.Contains(c.Name) Then

        If (e.Form.Controls("是否内部账号").Value = True AndAlso e.Form.Controls(c.Name).Text = "") _

            OrElse (e.Form.Controls("是否内部账号").Value = False AndAlso (c.Name = "账户名称" OrElse c.Name = "账号" OrElse c.Name = "余额方向" OrElse c.Name = "余额") AndAlso e.Form.Controls(c.Name).Text = "" )Then

            MessageBox.Show(c.Name & "不能为空")

            e.Form.Controls(c.Name).Select()

            canAddNew = False

            Exit For

        End If

    End If

Next

If canAddNew Then

    Dim dr As DataRow = DataTables("账户管理表").AddNew()

    For Each c As Col In Tables("账户管理表").Cols

        If e.Form.Controls.Contains(c.Name) Then

            If e.Form.Controls("是否内部账号").Value = True

                e.Form.Controls("账号").Text = dr("账号")

            End If

            dr(c.Name) = e.Form.Controls(c.Name).Text

        End If

    Next

End If