- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于每天把表A内容按条件自动生成到表B (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117541)
-- 发布时间：2018/4/14 10:33:00
-- [求助]关于每天把表A内容按条件自动生成到表B
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按时间每天自动根据条件生成表新内容.foxdb |
请帮做个案例，每天打开系统将表A“项目备注”为“有效”的行，内容全部自动生成到表B。
备注：1.如果中间有间隔时间没有打开系统的，下次打开则自动补齐生成间隔的天数内容，如果有系统没有关闭的情况下，则每天晚上12:00自动生成
备注：2.其中每个星期天不用自动生成
备注：3.星期几：根据稽核日期自动生成：格式：星期六
备注：4.年季度：根据稽核日期自动生成：格式：2018-02
谢谢！
-- 发布时间：2018/4/14 10:50:00
--
按条件直接填充：http://www.foxtable.com/webhelp/scr/0680.htm
表A增加一个“星期几”列，计算参考：http://www.foxtable.com/webhelp/scr/0229.htm
项目afteropenproject事件
Dim dr As DataRow = DataTables("表B").Compute("max(稽核日期)")
If dr IsNot Nothing
Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.DataTable = DataTables("表B") \'指定数据接收表
f.Filter = "立项日期 > #" & dr("稽核日期") & "# and 星期几 <> \'星期日\'"
f.Fill() \'填充数据
End If