三个文本框控件数组:txtA(0)~txtA(20)、txtB(0)~txtB(9)、txtC(0)~txtC(36),再加一个独立文本框txtD,合起来一共是69个文本框,想实现循环判断:
如果这69个文本框内全是空的,一个数都没有,则提示“数据为空,操作无效”;
否则,哪怕这69个文本框只有一个有数据,就进行数据处理。
下面是我的笨方法,不知道还有没有更高级的方法。
Private Sub CmdSave_Click()
Dim i As Integer
'判断文本框是否全空。
For i = 0 To txtA.UBound
If Trim(txtA(i).Text) <> "" Then GoTo SOLVE
Next
For i = 0 To txtB.UBound
If Trim(txtB(i).Text) <> "" Then GoTo SOLVE
Next
For i = 0 To txtC.UBound
If Trim(txtC(i).Text) <> "" Then GoTo SOLVE
Next
If Trim(txtD.Text) <> "" Then GoTo SOLVE
MsgBox "记录为空,本操作无效", , "提示"
Exit Sub
SOLVE:
……数据处理过程……
End Sub