- 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=99055)
-- 发布时间：2017/4/11 22:34:00
-- [求助]引用日期框的日期，来删除记录表内容
[求助]引用日期框的日期，来删除记录表内容
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:引用日期框删除记录表内容.foxdb |
1、功能区有日期框和删除按钮，想删除表A中，通过小于日期框的时间的记录，帮助文件只有删除固定日期的代码，有没有办法实现按选定日期删除？
2、我例子中的错误在哪？
感谢。。。。
-- 发布时间：2017/4/11 22:36:00
--
DeleteFor
删除符合条件的行。
语法：
DeleteFor(Filter)
Filter: 一个表达式，用于指定删除条件，请参考表达式的运算符和函数 和 条件表达式
例如：
删除订单表中2007年2月1日以前的行，代码为：
DataTables("订单").DeleteFor("[日期] < #2/1/2007#")
这个是帮助文件里的例子，里边是固定日期，是否可以引用日期输入框的日期？
-- 发布时间：2017/4/11 22:52:00
--
任务五
本次任务的目的是给菜单加入日期筛选功能：
单击筛选按钮，即可筛选出开始日期和结束日期之间的数据。
设计步骤
在菜单中，增加一个功能组，名称为"任务五"，在功能组中增加一个工具栏，名称为"工具栏一"，然后在工具栏增加两个日期输入框(DatePicker)，一个标准按钮：
| 类型 | 名称 | 标题 | 图标 |
| 日期输入框 | StartDate | 开始日期： | |
| 日期输入框 | EndDate | 结束日期： | |
| 标准按钮 | Filter | Filter.Ico |
将Filter按钮的Click事件设为：
Dim StartDate
As
Date
Dim EndDate As
Date
With RibbonTabs("实战演练")("任务五")
StartDate =
.Items("StartDate").Value
EndDate = .Items("EndDate").Value
End
With
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
根据这个例子搞定了，
-- 发布时间：2017/4/11 22:53:00
--
参考：http://www.foxtable.com/webhelp/scr/1137.htm
-- 发布时间：2017/4/11 23:00:00
--
Dim StartDate As Date
With RibbonTabs("管理员使用功能")("删除系统记录")
StartDate = .Items("日期").Value
End With
DataTables("系统日志表").DeleteFor("[登录时间] < #" & StartDate & "#")
虽然改好了，不过不适合明白
-- 发布时间：2017/4/11 23:03:00
--
谢谢，已经搞定。帮助文件里找了好久，好多东西还是要好好的找帮助文件。
-- 发布时间：2017/4/11 23:07:00
--
顺便问下，有办法整表锁定，整表解锁的办法？
-- 发布时间：2017/4/11 23:11:00
--
参考：http://www.foxtable.com/webhelp/scr/0378.htm
-- 发布时间：2017/4/11 23:25:00
--
O(∩_∩)O谢谢，思路打开了，还没睡啊？早点睡吧。。。。。。