如何执行一次 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Tables("营业报表").AddNew

Dim d As Date

d = Date.today

Tables("营业报表").Current("农户售粮_数量") = DataTables("农户售粮总表").Compute("sum(售粮数量)","日期 = '#" & d & "#'")

Tables("营业报表").Current("农户售粮_金额") = DataTables("农户售粮总表").Compute("sum(售粮金额)","日期 = '#" & d & "#'")

Tables("营业报表").Current("农户售粮_单数") = DataTables("农户售粮总表").Compute("count(售粮单号)","日期 = '#" & d & "#'")

老师，我这是一个生成交班数据的代码， “交班预览”

1、我现在是每点一下，就生成一条记录，我需要，这个按钮只允许点一次，生成了数据，再点不要再生成记录了，

2、我要这个交班预览数据，只是临时看一下数据情况，不保存。然后等下班时，点 “交班”，这个时候才是需要真正的保存数据了。

请老师赐教。

1、if Tables("营业报表").rows.count = 0 then

这里放入上面的代码

end if

2、点 “交班”的时候再保存数据

If Tables("营业报表").rows.count = 0 Then

Dim d As Date

DataTables("营业报表").SQLDeleteFor("日期 = '" & d & "'")

Tables("营业报表").AddNew

Tables("营业报表").Current("交班员")=_UserName

DataTables("农户售粮总表").LoadFilter="日期 = '" & d & "'"

DataTables("农户售粮总表").Load

Tables("营业报表").Current("农户售粮_数量") = DataTables("农户售粮总表").Compute("sum(售粮数量)","日期 = '#" & d & "#'")

Tables("营业报表").Current("农户售粮_金额") = DataTables("农户售粮总表").Compute("sum(售粮金额)","日期 = '#" & d & "#'")

Tables("营业报表").Current("农户售粮_单数") = DataTables("农户售粮总表").Compute("count(售粮单号)","日期 = '#" & d & "#'")

DataTables("营业报表").Save

End If

老师，我这个是交班功能的改进，这是一个综合报表，我用的是外部数据库。从这个表中提取数据，现在的情况时要实现补交班，就是说，某天没有交班。我在要在这个交班窗体，选择需要生成交班数据的日期，然后判断，先删除该天旧的交班数据，然后生成新的记录。你帮我看一下这段代码哪块有问题了？

日期没有值

Dim d As Date = date.today

老师，不是这个样子的，这个当天的交班数据，我是一个窗体在哪个窗体里，我的日期有赋值。我现在的这个是后台补交班窗体，比如今天27号，我在25号的时候没有交班，我需要手动的选择日期，然后生成25号的交班数据。现在的代码，加上日期赋值，点交班，出来不了数据，我不知道这段代码该怎么修改，才能出来数据，请老师赐教。

那就是没有符合条件的数据

msgbox("日期 = '" & d & "'")

主题：如何执行一次