Foxtable(狐表)用户栏目专家坐堂 → 关于加判断保存条件的代码


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

主题:关于加判断保存条件的代码

帅哥哟,离线,有人找我吗?
scofields
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
关于加判断保存条件的代码  发帖心情 Post By:2016/5/16 18:58:00 [显示全部帖子]

红袍老师,我想在保存按钮中加入一个判断条件,如某某为空时,弹出提示框,提示“某某不能为空”,这个代码怎么写?见下图,保存时“数量”与“包装”均不能为空!

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/16 18:59:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:判断保存.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
回复:(大红袍)比如代码 If Tables("表A")...  发帖心情 Post By:2016/5/16 20:39:00 [显示全部帖子]

红袍老师,运行错误,如图:

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/16 20:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:运行错误.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
回复:(wyz20130512)If Tables("表A").FindRow("数量...  发帖心情 Post By:2016/5/16 21:25:00 [显示全部帖子]

感谢指导!这样下来,数据好像保存到数据库里面了啊,能不能在没有录完实现数据不保存到数据库,并使“新增计划”的Enable属性为False?

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
回复:(大红袍)If Tables("表A").FindRow("数量 is ...  发帖心情 Post By:2016/5/16 21:25:00 [显示全部帖子]

感谢指导!这样下来,数据好像保存到数据库里面了啊,能不能在没有录完实现数据不保存到数据库,并使“新增计划”的Enable属性为False?

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
回复:(大红袍)save代码写在最后面,不执行save不会...  发帖心情 Post By:2016/5/16 21:32:00 [显示全部帖子]

噢,原来这个代码执行是有先后顺序,怪不得代码在不同的位置执行效果不一样

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
回复:(大红袍)e.Form.Controls("Button1").Enabled...  发帖心情 Post By:2016/5/16 21:42:00 [显示全部帖子]

红袍老师,是这样的吗?
e.Sender.Enabled = True
e.Form.Controls("Button1").Enabled = True
If Tables("JHS").FindRow("数量 is null") >= 0 AndAlso Tables("JHS").FindRow("包装 is null") >= 0  Then
    Msgbox("包装数量不能为空")
    Return
e.Form.Controls("Button1").Enabled = False
End If
DataTables("JHS").Save()

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/16 22:11:00 [显示全部帖子]

红袍老师,运行还是不理想,我明明是填写完整了,可还是弹出对话框。
图片点击可在新窗口打开查看此主题相关图片如下:出错.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:562 积分:4521 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2016/5/16 22:34:00 [显示全部帖子]

如果有三个以上的列不能为空,怎么完善呢?
这样可以吗?If Tables("JHS").Current.IsNull("数量") andalso Tables("JHS").Current.IsNull("包装")  andalso Tables("JHS").Current.IsNull("包装") Then

 回到顶部
总数 11 1 2 下一页