Привет всем!
У меня в форме 20 текстовых полей, как мне быстро перебрать все поля формы и найти не пустые?
Dim i as integer
Dim result as String
result=""
For i=1 to 20
if len(txtBox(i).text)<>0 then ' Это для заполненых, =0 для пустых
result=result & txtBox(i).name
end if
next i
MsgBox result
Сейчас этот форум просматривают: Yandex-бот и гости: 3