- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 保存代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144774)
-- 发布时间：2019/12/29 16:37:00
-- 保存代码
窗口中保存按钮 代码 DateTimePicker1 和TextBox1 为空则删除当前行 并关闭窗口 如果DateTimePicker1 和TextBox1 不为空 保存退出
-- 发布时间：2019/12/29 16:44:00
--
可以每行检测,如不适合条件就清除
此主题相关图片如下：4.jpg
-- 发布时间：2019/12/29 17:08:00
--
再按钮中写代码 针对每行的 按照你的全局表项目里报错
-- 发布时间：2019/12/29 20:18:00
--
dim r as row = tables("某表").current
if r is nothing then return
if e.form.controls("DateTimePicker1").value = noting orelse e.form.controls("TextBox1").text= "" then
r.delete
else
r.save
end if
e.form.close
-- 发布时间：2019/12/30 13:13:00
--
你给的代码报错
这个代码不报错 效果达到了 但是不知道对不对
For Each r As Row In Tables("公告").Rows
If r.IsNull("日期") Or r.IsNull("提醒") Then
With Tables("公告")
If .Current IsNot Nothing Then
.Current.Delete
End If
End With
Else
Forms("提醒").Close()
End If
Next
-- 发布时间：2019/12/30 13:39:00
--
没看懂这个代码表示的意思。