[求助]关于每天把表A内容按条件自动生成到表B - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于每天把表A内容按条件自动生成到表B

共有2314人关注过本帖树形打印复制链接主题：[求助]关于每天把表A内容按条件自动生成到表B

工匠

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：554 积分：5082 威望：0 精华：0 注册：2017/4/20 11:08:00

[求助]关于每天把表A内容按条件自动生成到表B 发帖心情

Post By：2018/4/14 10:33:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:按时间每天自动根据条件生成表新内容.foxdb

老师您好！

请帮做个案例，每天打开系统将表A“项目备注”为“有效”的行，内容全部自动生成到表B。

备注：1.如果中间有间隔时间没有打开系统的，下次打开则自动补齐生成间隔的天数内容，如果有系统没有关闭的情况下，则每天晚上12:00自动生成

备注：2.其中每个星期天不用自动生成

备注：3.星期几：根据稽核日期自动生成：格式：星期六

备注：4.年季度：根据稽核日期自动生成：格式：2018-02

谢谢！

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/4/14 10:50:00 [只看该作者]

表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

主题：[求助]关于每天把表A内容按条件自动生成到表B