- 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=98227)
-- 发布时间：2017/3/26 20:08:00
-- 如多列统计逻辑列笔数
有一个源数是记录多家公司多个客户有无出门条、送货单、客户签字
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
等数据，现需要统计每个公司下的各客户有出门条的笔数、无出门条的笔数、有送货单的笔数、无送货单的笔数、有签字的笔数、无签字的笔数
-- 发布时间：2017/3/26 20:34:00
--
参考
http://www.foxtable.com/webhelp/scr/0681.htm
http://www.foxtable.com/webhelp/scr/1647.htm
http://www.foxtable.com/webhelp/scr/0099.htm
-- 发布时间：2017/3/26 20:57:00
--
可以帮设置下不，谢谢
-- 发布时间：2017/3/26 23:02:00
--
Dim cn As String = "" \'数据源名(空白时为内数据表)
Dim bm As String = "统计表1"
Dim b As New SQLCrossTableBuilder(bm,"表A")
Dim d As fxDataSource
b.ConnectionName = cn
b.HGroups.AddDef("公司")
b.HGroups.AddDef("客户")
b.VGroups.AddExp("出门条", "iif(出门条=true,\'出门条_有\',\'出门条_无\')")
b.Totals.AddDef("金额")
b.VerticalTotal = True
d = b.BuildDataSource()
b = New SQLCrossTableBuilder(bm,"表A")
Dim d1 As fxDataSource
b.ConnectionName = cn
b.HGroups.AddDef("公司")
b.HGroups.AddDef("客户")
b.VGroups.AddExp("送货单", "iif(送货单=true,\'送货单_有\',\'送货单_无\')")
b.Totals.AddDef("金额")
b.VerticalTotal = True
d1 = b.BuildDataSource()
b = New SQLCrossTableBuilder(bm,"表A")
Dim d2 As fxDataSource
b.ConnectionName = cn
b.HGroups.AddDef("公司")
b.HGroups.AddDef("客户")
b.VGroups.AddExp("客户签字", "iif(客户签字=true,\'客户签字_有\',\'客户签字_无\')")
b.Totals.AddDef("金额")
b.VerticalTotal = True
d2 = b.BuildDataSource()
Dim Cols As String = "公司|客户"
d.Combine(Cols.split("|"),d1,Cols.split("|"))
d.Combine(Cols.split("|"),d2,Cols.split("|"))
d.Show(bm)
Tables(bm).AutoSizeCols
MainTable = Tables(bm)
-- 发布时间：2017/3/26 23:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
-- 发布时间：2017/3/27 11:09:00
--
b.HGroups
g.HGroups
请问有什么区别
老师，可以备注下注释不，有点看不懂
-- 发布时间：2017/3/27 11:13:00
--
直接看5楼例子即可。
-- 发布时间：2017/3/27 11:17:00
--
直接看5楼例子即可。 指的是那个例子
-- 发布时间：2017/3/27 11:22:00
--
下载那个 测试.table 文件，然后打开。
-- 发布时间：2017/3/28 14:22:00
--
Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.Groups.AddDef("产品")
b.Totals.AddDef("数量")
b.Totals.AddExp("金额","数量 * 单价 * (1 - 折扣)")
b.Build
MainTable = Tables("统计表1")
执行时，提示“生成的SQL语句错误，无法继续统计”
请问怎么解决