控件初始检查赋值情况，求助 - 编程论坛

ouxianzhi5202010-04-14 09:28

程序代码：

Dim i As Integer
        For i = 1 To 16
            If IsNumeric(Me.Controls.Item("textbox" & i).Text) Then
                ' MsgBox("提示", , "提示")
                Me.Controls.Item("textbox" & i).BackColor = Color.Red
            End If
        Next i

最好是把代码写在这里，更方便查看。
你在判断中加了exit sub 这样只能判断一个，当有两个或更多时，无法判断后面的，上面的代码测试通过。希望对你有帮助