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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有8351人关注过本帖树形打印复制链接主题：[求助]

ruanziming

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

加好友

发短信

等级：幼狐帖子：87 积分：662 威望：0 精华：0 注册：2013/1/24 15:19:00

[求助]

Post By：2013/4/8 19:18:00 [只看该作者]

Dim g As New CrossTableBuilder("订单汇总", DataTables("销售订单"), "[单据日期] = #2013-04-01#")

g.HGroups.AddDef("原料名称")

g.HGroups.AddDef("原料编码")

g.HGroups.AddDef("采购员", "", "供应商编码")

g.VGroups.AddDef("总公司")

g.Totals.AddDef("订单数量/出成率", "订单数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Decimals = 1

g.Filter = "[单据日期] = #2013-04-01#"

g.Build()

MainTable = Tables("订单汇总")

哪位老师帮忙看看这段代码，如果条件改成“单据日期”的最近一天如何处理？意思是今天有数据就是今天，今天没有数据就是昨天。

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2013/4/8 20:39:00 [只看该作者]

Dim d As Date = DataTables("销售订单").Compute("max(单据日期)")
Dim g As New CrossTableBuilder("订单汇总", DataTables("销售订单"), "[单据日期] = #" & d & "#")
g.HGroups.AddDef("原料名称")
g.HGroups.AddDef("原料编码")
g.HGroups.AddDef("采购员", "", "供应商编码")
g.VGroups.AddDef("总公司")
g.Totals.AddDef("订单数量/出成率", "订单数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 1
g.Filter = "[单据日期] = #" & d & "#"
g.Build()
MainTable = Tables("订单汇总")

FoxMan

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

加好友

发短信

等级：小狐帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00

Post By：2013/4/8 21:06:00 [只看该作者]

应该这样:

Dim d As Date = DataTables("销售订单").Compute("max(单据日期)")

Dim g As New CrossTableBuilder("订单汇总", DataTables("销售订单"))

g.HGroups.AddDef("原料名称")

g.HGroups.AddDef("原料编码")

g.HGroups.AddDef("采购员", "", "供应商编码")

g.VGroups.AddDef("总公司")

g.Totals.AddDef("订单数量/出成率", "订单数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Decimals = 1

g.Filter = "[单据日期] = #" & d & "#"

g.Build()

MainTable = Tables("订单汇总")

[此贴子已经被作者于2013-4-8 21:17:49编辑过]

ruanziming

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

加好友

发短信

等级：幼狐帖子：87 积分：662 威望：0 精华：0 注册：2013/1/24 15:19:00

Post By：2013/4/9 8:02:00 [只看该作者]

十分感谢FOXMAN，测试成功.请问老师，是否可以改成单据日期可以选择呢？就是在执行这个按钮的时候弹出日期框，选择日期条件。谢谢

ruanziming

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

加好友

发短信

等级：幼狐帖子：87 积分：662 威望：0 精华：0 注册：2013/1/24 15:19:00

Post By：2013/4/9 9:30:00 [只看该作者]

补充说明：3楼的测试成功。不过由于客户多，表格有点大。能不能再条件那儿再加上“总公司”的选择和“采购员”的选择？

muhua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/9 9:31:00 [只看该作者] 用户已被锁定

muhua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/9 9:33:00 [只看该作者] 用户已被锁定