Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片


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

主题：[求助]图片
帅哥哟，离线，有人找我吗？
江南小城
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/30 13:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/30 15:11:00 [只看该作者]

Dim dri As Date = Date.Today
If InputValue(dri, "付款文件","请输入日期:") Then
    Tables("表A").current("日期") = dri
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]输入数据  发帖心情 Post By：2016/9/30 16:08:00 [只看该作者]

老师，"piao据号码"列输入数据后"付款日期"和"客户名称"列有任何一列是空的话就调用该对话框并逐一输入数据赋值给对应的单元格。 下面代码是一个大体意思。


Dim Val As String  = Nothing
Do While True
    InputValue(Val,e.Col.Name,"请手工输入")
    If Val Is Nothing
        MessageBox.Show("不能为空!","提示")
    Else
        Exit Do
    End If
Loop
[此贴子已经被作者于2016/9/30 16:09:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/30 16:40:00 [只看该作者]

不建议使用这种模式，不断弹出输入框，用户比较反感的。何况用户想临时取消不操作了还取消不了。

应该像16楼一样，判断有空值的就提示用户，然后取消不去执行其它的操作。只有完全符合条件才执行后面的操作
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/30 17:07:00 [只看该作者]

哦，谢谢老师

 回到顶部
总数 35 上一页 1 2 3 4
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 4 次数据查询