控件遍历算法的优化，还不能满足需要，正在寻求更好的解决方式

        很久以前对于winform窗体的编程，我很想实现 通过字符串来找到窗体控件，并加以控制的功能。这样可以实现程序更广的灵活度，可惜在vb.net中是不支持如同 me."TextBox".Text  这种语法的。通过收集csdn相关资料和平时积累的经验，圆满的完成了此功能。但问题也随即出现了....
        问题的提出：实现winfrom窗体所有录入控件的数据验证
        涉及的控件类型：XtraEditor系列控件（TextEdit、LookUpEdit、DateEdit）这几个控件只是把WinForm自带的Textbox、ComboBox以及日期控件的局部功能作了一个扩展，这里我就不细说，有兴趣的朋友可以自行去研究。
        算法描述：
         遍历窗体中的控件，得到控件的名称（ID）
         遍历数据库中字典表，查询出包含上面得到的ID字符串信息记录，得到该字段的主键、数据类型等信息
         注意：数据库中字典表记录所有表格字段的信息，窗体中绑定字段控件的名称与字段名一致，方便操作
         通过字段的主键和数据类型信息，进行数据验证。
        程序模块的实现：
        1.对外控件数据验证主模块

 Public Function CheckAllInputData()Function CheckAllInputData(ByVal tbinfo, ByVal FormName) As Boolean
        Dim i As Integer
        Dim tempcontrol As Control
        For Each tempcontrol In FormName.Controls
            For i = 0 To tbinfo.Rows.Count - 1
                If tempcontrol.Name = tbinfo.Rows(i)(2) Then
                    If tbinfo.Rows(i)(3) = tbinfo.Rows(i)(4) And tbinfo.Rows(i)(8) = "No" And tbinfo.Rows(i)(5) <> "DATE" Then
                        Dim BeCheckStr As String = tempcontrol.Text
                        Dim DataTypeName, DataTypeStr As String
                        DataTypeName = tbinfo.Rows(i)(5)
                        DataTypeStr = DataTypeName
                        DataTypeName = DataTypeName.Substring(0, 4)
                        Select Case DataTypeName
                            Case "VARC"
                                Dim strlen As Integer = DataTypeStr.Substring(8, DataTypeStr.LastIndexOf(")") - 8)
                                If Trim(BeCheckStr) = "" And tbinfo.Rows(i)(6) = "No" Then
                                Else
                                    If CheckStrLen(BeCheckStr, strlen, tbinfo.Rows(i)(3)) = True Then
                                        ' InsertTempvalue(BeCheckStr, tbinfo.Rows(i)(2))

                                    Else
                                        ClearTempvalue()
                                        tempcontrol.Focus()
                                        Return False
                                    End If

                                End If
                                Exit Select

                            Case "NUMB"
                                If Trim(BeCheckStr) = "" And tbinfo.Rows(i)(6) = "No" Then
                                Else
                                    Dim zsnum As Integer = DataTypeStr.Substring(7, DataTypeStr.LastIndexOf(",") - 7)
                                    Dim xsnum As Integer = DataTypeStr.Substring(DataTypeStr.LastIndexOf(",") + 1, DataTypeStr.LastIndexOf(")") - DataTypeStr.LastIndexOf(",") - 1)
                                    If CheckDec(BeCheckStr, zsnum, xsnum, tbinfo.Rows(i)(3)) = True Then
                                        '  InsertTempvalue(BeCheckStr, tbinfo.Rows(i)(2))

                                    Else
                                        ClearTempvalue()
                                        tempcontrol.Focus()
                                        Return False
                                    End If
                                End If
                                Exit Select
                            Case "DATE"
                                BeCheckStr = CType(tempcontrol, DevExpress.XtraEditors.DateEdit).Text
                                If Trim(BeCheckStr) = "" And tbinfo.Rows(i)(6) = "No" Then
                                Else
                                    CheckRQ(BeCheckStr, tbinfo.Rows(i)(2))
                                    Exit Select
                                End If
                                Exit Select
                              Case Else
                                If tbinfo.Rows(i)(8) = "YES" And tbinfo.Rows(i)(6) = "YES" Then
                                    BeCheckStr = CType(tempcontrol, DevExpress.XtraEditors.LookUpEdit).EditValue()
                                    If Trim(BeCheckStr) = "" Then
                                        MsgBox(tbinfo.Rows(i)(2) & "作为主键,不能为空!", MsgBoxStyle.Critical, "错误")
                                    End If
                                End If
                               Exit Select
                        End Select
                    End If
                    Exit For
                End If

            Next
        Next
        Return True
    End Function

        2.数字数据类型验证模块

Private  Function CheckDec()Function CheckDec(ByVal str As String, ByVal zsnum As Integer, ByVal xsnum As Integer, ByVal CheckField As String) As Boolean
        Dim rfvxsstr As String = "^[0-9]{1," & zsnum & "}\.?[0-9]{0," & xsnum & "}$"
        Dim rfvzsstr As String = "^[0-9]{1," & zsnum & "}$"
        If Regex.IsMatch(str, rfvxsstr) = True Or Regex.IsMatch(str, rfvzsstr) = True Then
            Return True
        Else
            MsgBox(CheckField & "的输入产生错误的数据格式，限制整数" & zsnum & "位，小数" & xsnum & "位", MsgBoxStyle.Critical, "错误")
            Return False
        End If
    End Function

        3.字符串数据验证模块

Private Function CheckStrLen()Function CheckStrLen(ByVal str As String, ByVal length As Integer, ByVal CheckField As String) As Boolean
        If System.Text.UnicodeEncoding.Default.GetByteCount(str) <= length Then
            Return True
        Else
            MsgBox(CheckField & "的输入字符过长，限制输入中文字符" & length / 2 & "个或英文字符" & length & "个。", MsgBoxStyle.Critical, "错误")
            Return False
        End If
    End Function

        4.日期数据验证模型

  Public Function CheckRQ()Function CheckRQ(ByVal str As String, ByVal CheckField As String) As Boolean

        Dim rfvrqstr As String = "^^((\d{2}(([02468][048])|([13579][26]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|([1-2][0-9])))))|(\d{2}(([02468][1235679])|([13579][01345789]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|(1[0-9])|(2[0-8]))))))(\s(((0?[1-9])|(1[0-2]))\:([0-5][0-9])((\s)|(\:([0-5][0-9])\s))([AM|PM|am|pm]{2,2})))?$"
        If Regex.IsMatch(str, rfvrqstr) = True Then
            Return True
        Else
            MsgBox(CheckField & "的输入产生错误的时间数据格式", MsgBoxStyle.Critical, "错误")
            Return False
        End If
    End Function

        模块调用

Form中文本框数据验证#Region "Form中文本框数据验证 "
    Private Function InpBoxDataCheck()Function InpBoxDataCheck() As Boolean
        Try

            If TComFun.CheckAllInputData(tbinfo, Me) = True Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Return False
        End Try
    End Function
#End Region

注意 标注红色的Me，如果遍历的控件的父容器不是Form而是Form下的GroupBox1，那么对应的Me应该改为Me.GroupBox1
问题的出现
         程序执行中数据验证时间过长，测试窗体含有验证控件21个，验证时间20秒，代码中包含Exit字样的是优化后的代码，主要原理为一旦某项数据验证完毕，立即退出当前子循环，进行下一个父循环，优化后时间为13秒。