- 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=119747)
-- 发布时间：2018/5/31 10:41:00
-- 备注是字符型的，这样就会报错，有办法解决吗？
Dim g As New CrossTableBuilder("统计表1", DataTables("日库存表"))
g.HGroups.AddDef("日期", "月")
g.HGroups.AddDef("日期", DateGroupEnum.Day, "日")
g.VGroups.AddDef("英文名称")
g.Totals.AddDef("出入库", "出入库")
g.Totals.AddDef("库存数量", "库存数量")
g.Totals.AddDef("装卸费", "装卸费")
g.Totals.AddDef("仓储费", "仓储费")
g.Totals.AddDef("拆箱费", "拆箱费")
g.Totals.AddDef("标签费", "标签费")
g.Totals.AddDef("备注", "备注")
g.Build()
备注只起到显示的作用
-- 发布时间：2018/5/31 11:28:00
--
逻辑本身就有问题。
备注列的值有可能有多行，你要合并所有行的备注信息？还是显示某一行的备注信息？
-- 发布时间：2018/5/31 11:38:00
--
只显示一行，备注是字符型，不会超过二三十个字
-- 发布时间：2018/5/31 11:49:00
--
Dim g As New sqlCrossTableBuilder("统计表1", "日库存表")
g.HGroups.AddDef("日期", "月")
g.HGroups.AddDef("日期", DateGroupEnum.Day, "日")
g.VGroups.AddDef("英文名称")
g.Totals.AddDef("出入库", "出入库")
g.Totals.AddDef("库存数量", "库存数量")
g.Totals.AddDef("装卸费", "装卸费")
g.Totals.AddDef("仓储费", "仓储费")
g.Totals.AddDef("拆箱费", "拆箱费")
g.Totals.AddDef("标签费", "标签费")
g.Totals.AddExp("备注", "max(备注)")
g.Build()
-- 发布时间：2018/5/31 11:52:00
--
此主题相关图片如下：1.png
还是报错
-- 发布时间：2018/5/31 12:21:00
--
Dim g As New sqlCrossTableBuilder("统计表1", "日库存表")
g.HGroups.AddDef("日期", "月")
g.HGroups.AddDef("日期", DateGroupEnum.Day, "日")
g.VGroups.AddDef("英文名称")
g.Totals.AddDef("出入库", "出入库")
g.Totals.AddDef("库存数量", "库存数量")
g.Totals.AddDef("装卸费", "装卸费")
g.Totals.AddDef("仓储费", "仓储费")
g.Totals.AddDef("拆箱费", "拆箱费")
g.Totals.AddDef("标签费", "标签费")
g.Totals.AddExp("备注", "备注", AggregateEnum.max)
g.Build()
-- 发布时间：2018/5/31 12:25:00
--
如果有问题，做个例子发上来测试。
-- 发布时间：2018/5/31 12:31:00
--
是不报错了，但备注列没有了
-- 发布时间：2018/5/31 12:35:00
--
是不报错了，但备注列没有了
生成表格以后，循环每一行、每一列，读取表格备注，赋值进去。
-- 发布时间：2018/5/31 12:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |