- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2507)
-- 发布时间：2009/4/19 12:08:00
-- 求助
1、自定义菜单栏上打印预览有问题；2、自定义菜单后，右下角的列合计没有了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:材料仓.table |
-- 发布时间：2009/4/19 12:50:00
--
右下角合计可以在项目的AfterSelRangChange事件中加如下代码解决：
Dim Sum,Average,Count As Double
With CurrentTable
Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 =" 累计:" & Cstr(sum) & " 平均:" & Cstr(Average) & " 计数:" & Cstr(Count) & " "
-- 发布时间：2009/4/19 13:16:00
--
谢谢。麻烦请圆整到整数；打印预览有什么问题？另外能否给一个右下角区域仓存的计算表达式（入仓之和-出仓之和）
-- 发布时间：2009/4/19 13:38:00
--
整数这样就可以了。
Dim Sum,Average,Count As Integer
With CurrentTable
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
Average = .Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
Count = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 =" 累计:" & sum & " 平均:" & Average & " 计数:" & Count
-- 发布时间：2009/4/19 13:40:00
--
打印预览，在哪？
-- 发布时间：2009/4/19 13:48:00
--
入仓减出仓不就等于仓存吗？直接显示仓存列的值就可以了。
-- 发布时间：2009/4/19 15:50:00
--
看原材料仓明细,我想按型号规格筛选后右下角显示入仓列的和-出仓列的和(当前仓存)
打印预览在自定义菜单的快速访问栏中
-- 发布时间：2009/4/19 17:27:00
--
可以在筛选按钮代码的最后加上：
StatusBar.Message3 ="仓存:" & Tables("原材料仓").Compute("Sum(仓存)")
-- 发布时间：2009/4/19 23:01:00
--
打印的问题，重新设置一下纸张即可解决。