| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=31019) |
| -- 作者：ruanziming -- 发布时间：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 -- 发布时间：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 -- 发布时间：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 -- 发布时间：2013/4/9 8:02:00 -- 十分感谢FOXMAN，测试成功.请问老师，是否可以改成单据日期可以选择呢？就是在执行这个按钮的时候弹出日期框，选择日期条件。谢谢 |
| -- 作者：ruanziming -- 发布时间：2013/4/9 9:30:00 -- 补充说明：3楼的测试成功。不过由于客户多，表格有点大。能不能再条件那儿再加上“总公司”的选择和“采购员”的选择？ |
| -- 作者：zds -- 发布时间：2013/4/9 9:39:00 -- 打开一个项目后，怎样返回系统菜单 第一次用狐表，请前辈指点
[此贴子已经被作者于2013-4-9 9:41:37编辑过]
|
| -- 作者：Bin -- 发布时间：2013/4/9 9:41:00 -- 帮助里都有的啊cTRL+SHIFT+F12 |
| -- 作者：XYT -- 发布时间：2013/4/9 9:41:00 -- ctrl+shift+F12 |
| -- 作者：zds -- 发布时间：2013/4/9 10:08:00 -- 谢谢2位！ 在线触发的帮助文档在哪里？
|