Foxtable(狐表)用户栏目专家坐堂 → 保存和返回输入框问题


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

主题:保存和返回输入框问题

美女呀,离线,留言给我吧!
mxy8898
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
保存和返回输入框问题  发帖心情 Post By:2018/2/3 11:19:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180203111618.jpg
图片点击可在新窗口打开查看

如图,要输入的数据为空,点击保存提示数据为空不能保存,怎么才可以做到。

有数据保存后怎么做才可以自动将输入点切换到第一个“时间”输入位置

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
  发帖心情 Post By:2018/2/4 14:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180204143423.jpg
图片点击可在新窗口打开查看


有提示不能为空,但还是可以保存


所有数据都填满后,保存有错误提示

以下是保存按钮代码
Dim r As Row  = Tables("水质检测原始数据").current
If r IsNot Nothing Then
    If r.isnull("年份日期") Then
        msgbox("年份日期不能为空")
        Return
    End If
    If r.isnull("主养品种") Then
        msgbox("主养品种不能为空")
        Return
    End If
    r.save
End If
Tables("水质检测原始数据").addnew
e.form.controls("DateTimePicker1").Select()

DataTables("水质检测原始数据").Save()
CurrentTable.AddNew()

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
保存后报错  发帖心情 Post By:2018/2/7 16:16:00 [显示全部帖子]


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

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

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

1、提示不能为空,照样可以写进数据库
2、所有数据全部填上保存,提示错误

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
  发帖心情 Post By:2018/2/7 16:31:00 [显示全部帖子]

实例怎么发送,压缩后无法上传

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
  发帖心情 Post By:2018/2/7 16:56:00 [显示全部帖子]

是这个么

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
  发帖心情 Post By:2018/2/7 17:16:00 [显示全部帖子]

以压缩上传

 回到顶部