Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断窗口文本框多个内容为空


  共有2070人关注过本帖树形打印复制链接

主题：判断窗口文本框多个内容为空
帅哥哟，离线，有人找我吗？
362491397
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：4 积分：96 威望：0 精华：0 注册：2021/2/7 12:53:00 		判断窗口文本框多个内容为空  发帖心情 Post By：2021/2/10 10:36:00 [只看该作者]

想实现判断窗口1个以上的文本框内容是否为空，只要任何一个文本框内容为空就弹出对话框，有没有精简的代码，我编的代码如下，请大神们指导一下！

With Forms("入库单").Controls("ComboBox6") 
 If .Value Is Nothing Then
        Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     Else
        With Forms("入库单").Controls("ComboBox5") 
        If .Value Is Nothing Then
        Messagebox.Show("入库单无内容,无法打印!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     Else
         With Forms("入库单").Controls("ComboBox1") 
        If .Value Is Nothing Then
        Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
With Forms("入库单").Controls("TextBox4") 
 If .Value Is Nothing Then
        Messagebox.Show("入库单无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/16 10:53:00 [只看该作者]

给控件命名有规律的名称，比如所有需要判断非空的控件加上某个前缀，以及有意义的名称，如：no_编号、no_姓名、no_日期、......

For Each c As WinForm.Control In e.Form.Controls
    If c.name.StartsWith("no_") Then
        Dim t = c
        If  t.Text = "" Then
            Messagebox.Show(t.name.split("_")(1) & "无内容,无法打印","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            t.Select()
            Return
        End If
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03223 秒, 4 次数据查询