Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重复值、空值，怎样才能弹出警告窗


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

主题：[求助]重复值、空值，怎样才能弹出警告窗
帅哥哟，离线，有人找我吗？
szsmall
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00 		[求助]重复值、空值，怎样才能弹出警告窗  发帖心情 Post By：2016/3/30 17:19:00 [显示全部帖子]

1、录入计划单号时，如果单号已经存在，弹出警告窗口。是在validating写代码嘛？
2、按“保存”时，有空行或者单元格是空，弹出警告窗口


图片点击可在新窗口打开查看此主题相关图片如下：计划单录入 重复提示.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：计划单录入 空行 提示.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
szsmall
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00 		  发帖心情 Post By：2016/4/5 20:06:00 [显示全部帖子]

如果“材料名称”、“规格型号”、“单位”、“数量”，这4列不可以为空。其他两列可以试空的，代码该怎么写


图片点击可在新窗口打开查看此主题相关图片如下：计划单录入 部分可以为空.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
szsmall
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00 		  发帖心情 Post By：2016/4/7 23:50:00 [显示全部帖子]

“数量”列，为了防止误输，负数或者零值，在表格的ValidateEdit写以下代码，但出现错误提示框？
另外有没比下面更简洁的代码嘛？

If Tables("计划单临时表").Current.IsNull("数量") Then
MessageBox.show("数量不能为空")
End If 

If e.Col.Name = "数量" Then
    If e.text <= 0 Then
        MessageBox.show("订购数量不能是负数或零值")
        E.Cancel = True
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：计划单录入 数量少于0 显示警告 -1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：计划单录入 数量少于0 显示警告.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2016/4/8 19:41:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
szsmall
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00 		  发帖心情 Post By：2016/4/8 19:31:00 [显示全部帖子]

If e.Col.Name = "数量" Then
    If e.Row.Isnull("数量") OrElse e.Row("数量") <= 0 Then
        MessageBox.show("订购数量不能是负数或零值")
        E.Cancel = True
    End If
End If
上面的代码，输入什么数值，都会弹窗警告。因为有e.Cancel = True，还一直在弹。不知道是什么原因，求解答？

按帮助的例子，写成下面那样，放在ValidateEdit，可正常用。
If e.Col.Name = "数量" Then
    If e.Text > "" Then
        Dim v As Double = Val(e.text)
        If v <= 0 Then
            MessageBox.show("订购数量不能是负数或零值")
        End If
    End If
End If



放在DataColChanging，又改成下面
If e.DataCol.Name = "数量" Then
    If e.NewValue <= 0 Then
        MessageBox.show("订购数量不能是负数或零值")
        e.Cancel = True
    End If
End If

因为要从excel复制内容过来，最后就用了DataColChanging。

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2016/4/8 23:48:54编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询