以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 针对当前表怎么设置? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101337) |
-- 作者:白国栋 -- 发布时间:2017/5/28 21:10:00 -- 针对当前表怎么设置? Dim HGroup As String Dim VGroup As String Dim TotalOn As String \'获取输入内容 With RibbonTabs("实战演练二")("任务九") HGroup = .Items("HGroup").Text VGroup = .Items("VGroup").Text TotalOn = .Items("TotalOn").Text End With With CurrentTable.Cols If HGroup >"" AndAlso .Contains(HGroup) Then \'如果已经输入有效水平分组 If VGroup >"" AndAlso .Contains(VGroup) Then \'如果已经输入有效垂直分组 If TotalOn >"" AndAlso .Contains(TotalOn) Then \'而且统计列有效 Dim b As New CrossTableBuilder("统计表",DataTables("订单")) b.HGroups.AddDef(HGroup) \'添加水平分组 b.VGroups.AddDef(VGroup) \'添加垂直分组 b.Totals.AddDef(TotalOn) \'添加统计列 b.Build \'生成统计表 MainTable = Tables("统计表") End If End If End If End With 事例里只能是针对当年的”订单“表,怎么样设置成操作的当前表?谢谢!
|
-- 作者:有点色 -- 发布时间:2017/5/29 10:42:00 -- 改成 currentTable.DataTable |