| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何执行一次 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150238) |
| -- 作者：outcat -- 发布时间：2020/5/24 23:14:00 -- 如何执行一次 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、我要这个交班预览数据，只是临时看一下数据情况，不保存。 然后等下班时，点 “交班”，这个时候才是需要真正的保存数据了。 请老师赐教。
|
| -- 作者：有点蓝 -- 发布时间：2020/5/24 23:22:00 -- 1、if Tables("营业报表").rows.count = 0 then 这里放入上面的代码 end if 2、点 “交班”的时候再保存数据
|
| -- 作者：outcat -- 发布时间：2020/5/27 15:45:00 -- 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 老师，我这个是交班功能的改进，这是一个综合报表，我用的是外部数据库。从这个表中提取数据，现在的情况时要实现补交班，就是说，某天没有交班。我在要在这个交班窗体，选择需要生成交班数据的日期，然后判断，先删除该天旧的交班数据，然后生成新的记录。你帮我看一下这段代码哪块有问题了？
|
| -- 作者：有点蓝 -- 发布时间：2020/5/27 16:26:00 -- 日期没有值 Dim d As Date = date.today
|
| -- 作者：outcat -- 发布时间：2020/5/27 19:43:00 -- 老师，不是这个样子的，这个当天的交班数据，我是一个窗体在哪个窗体里，我的日期有赋值。我现在的这个是后台补交班窗体，比如今天27号，我在25号的时候没有交班，我需要手动的选择日期，然后生成25号的交班数据。现在的代码，加上日期赋值，点交班，出来不了数据，我不知道这段代码该怎么修改，才能出来数据，请老师赐教。 |
| -- 作者：有点蓝 -- 发布时间：2020/5/28 8:53:00 -- 那就是没有符合条件的数据 msgbox("日期 = \'" & d & "\'")
|