- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 原本是整数型的数据现在变成字符 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170197)
-- 发布时间：2021/7/16 10:22:00
-- 原本是整数型的数据现在变成字符
原本是整
此主题相关图片如下：数据类型变成字符.png
数型的数据现在变成字符，所以影响了交叉表的排序，这个有什么办法解决？
-- 发布时间：2021/7/16 10:29:00
--
因为汇总模式的第一列往往是要存放“小计”这些字符的，所以必须是字符型。
先把具体代码发上来看看
-- 发布时间：2021/7/16 10:36:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("条码录入明细"))
g.HGroups.AddDef("款序号")
g.HGroups.AddDef("原款号")
g.HGroups.AddDef("品名")
g.HGroups.AddDef("颜色")
g.VGroups.AddDef("尺码序号")
g.VGroups.AddDef("尺码")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.Build()
MainTable = Tables("统计表1")
以上是代码。生成的。
-- 发布时间：2021/7/16 10:41:00
--
还有你看一下那个小计部分，他会显示三个小计，其实只要一个就可以了
-- 发布时间：2021/7/16 10:44:00
--
去掉g.Subtotal = True
然后在另外设置汇总模式：http://www.foxtable.com/webhelp/topics/1372.htm
-- 发布时间：2021/7/16 11:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1234.xls |
可以安一个进行小计了，但是导出EXCEL时没有显
此主题相关图片如下：小计显示.png
示小计！！！
-- 发布时间：2021/7/16 11:12:00
--
使用5楼的汇总模式就可以导出小计
-- 发布时间：2021/7/16 11:32:00
--
可以了，谢谢。现在还有那个排序的问题。“因为汇总模式的第一列往往是要存放“小计”这些字符的，所以必须是字符型。” 这个怎么解决
-- 发布时间：2021/7/16 11:33:00
--
看5楼
去掉g.Subtotal = True
-- 发布时间：2021/7/16 11:44:00
--
DataTables("条码录入明细").LoadFilter="所属供应商=\'" & Forms("盘点明细表").Controls("combobox1").text & "\'"
DataTables("条码录入明细").Load()
Dim g As New CrossTableBuilder("统计表1", DataTables("条码录入明细"))
g.HGroups.AddDef("款序号")
g.HGroups.AddDef("原款号")
g.HGroups.AddDef("品名")
g.HGroups.AddDef("颜色")
g.VGroups.AddDef("尺码序号")
g.VGroups.AddDef("尺码")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")
Tables("盘点明细表_Table1").DataSource =g.BuildDataSource
Tables("盘点明细表_Table1").Cols.Frozen = 2
Dim g1 As New Subtotalgroup \'定义一个新的分组
g1.GroupOn = "款序号" \'分组列为客户列
g1.TotalOn = "合计"
With Tables("盘点明细表_Table1")
.SubtotalGroups.Clear() \'清除原有的分组
.SubtotalGroups.Add(g1) \'加入刚刚定义的分组
.Subtotal() \'生成汇总模式
End With
已经去掉了，以上是全部代码。