- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 保存和返回输入框问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114323)
-- 发布时间：2018/2/3 11:19:00
-- 保存和返回输入框问题
此主题相关图片如下：qq截图20180203111618.jpg
如图，要输入的数据为空，点击保存提示数据为空不能保存，怎么才可以做到。
有数据保存后怎么做才可以自动将输入点切换到第一个“时间”输入位置
-- 发布时间：2018/2/3 11:25:00
--
保存按钮
dim r as row = tables("表A").current
if r isnot nothing then
if r.isnull("第一列") then
msgbox("第一列不能为空")
return
end if
if r.isnull("第二列") then
msgbox("第二列不能为空")
return
end if
r.save
endif
tables("表A").addnew
e.form.controls("Textbox1").select()
[此贴子已经被作者于2018/2/3 11:27:52编辑过]
-- 发布时间：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()
-- 发布时间：2018/2/4 17:23:00
--
每一次都报错？出错的实例发上来测试。
-- 发布时间：2018/2/7 16:16:00
-- 保存后报错
此主题相关图片如下：03.jpg
此主题相关图片如下：02.jpg
此主题相关图片如下：01.jpg
1、提示不能为空，照样可以写进数据库
2、所有数据全部填上保存，提示错误
-- 发布时间：2018/2/7 16:26:00
--
1、如果你窗口控件用绑定列的方式，是先写入数据库的，但没有保存，最后只要你不保存不就行了？
2、实例发上来测试。
-- 发布时间：2018/2/7 16:31:00
--
实例怎么发送，压缩后无法上传
-- 发布时间：2018/2/7 16:56:00
--
是这个么
-- 发布时间：2018/2/7 17:15:00
--
以下是引用mxy8898在2018/2/7 16:31:00的发言：
实例怎么发送，压缩后无法上传
实例怎么发送，压缩后无法上传
你做的项目，直接上传上来（大小不要超过2M），超过2M就压缩一下你的项目。
-- 发布时间：2018/2/7 17:16:00
--
以压缩上传