原本是整数型的数据现在变成字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原本是整

此主题相关图片如下：数据类型变成字符.png

数型的数据现在变成字符，所以影响了交叉表的排序，这个有什么办法解决？

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")

以上是代码。生成的。

还有你看一下那个小计部分，他会显示三个小计，其实只要一个就可以了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1234.xls

可以安一个进行小计了，但是导出EXCEL时没有显
图片点击可在新窗口打开查看

此主题相关图片如下：小计显示.png

示小计！！！

可以了，谢谢。现在还有那个排序的问题。“因为汇总模式的第一列往往是要存放“小计”这些字符的，所以必须是字符型。” 这个怎么解决

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

已经去掉了，以上是全部代码。

主题：原本是整数型的数据现在变成字符