以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  messagebox  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84641)
--  作者：ayiken
--  发布时间：2016/5/6 11:21:00
--  messagebox

我系统中需要弹出“不为空”提示框，但是控件太多，请问，一定要每个控件写一段代码吗？，有没有简化的方法？

If e.Form.Controls("TextBox14").Text = "" Then
     messagebox.show("过敏史不为空","提示", MessageBoxButtons.YesNo)
     Return
End If
--  作者：大红袍
--  发布时间：2016/5/6 11:27:00
--  

Dim kjs() As String = {"TextBox1", "Textbox2"}
Dim tss() as string = {"姓名","年龄"}
For i as integer = 0 to kjs.length - 1
    If e.form.controls(kjs(i)).Text = "" Then
        msgbox(tss(i) & "不能为空")
        Return
    End If
Next