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

表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