SQL临时表的引用和VGroups的参数设置方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：未命名2.png

问题1：窗口如何引用SQL临时表的

问题2：VGroups的参数设置方法，如何将计划出货日期依次排列不汇总成月

b.VGroups.AddDef("计划走货日期")

'用SQL语句生成临时表
图片点击可在新窗口打开查看

此主题相关图片如下：未命名.png

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select * F ROM {出货计划} left JOIN {出货计划明细} ON {出货计划}.订单号 = {出货计划明细}.订单号"

dt = cmd.ExecuteReader()

'对临时进行分组统计

Dim b As New CrossTableBuilder("横向出货计划1",dt)

b.HGroups.AddDef("订单号")

b.HGroups.AddDef("班组")

b.HGroups.AddDef("系列")

b.HGroups.AddDef("批次号")

b.VGroups.AddDef("计划走货日期")

b.Totals.AddDef("计划走货量")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

MainTable = Tables("横向出货计划1")

[此贴子已经被作者于2018/5/29 14:42:23编辑过]

此主题相关图片如下：未命名.png

Forms("横向出货计划").show()

'用SQL语句生成临时表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select * F ROM {出货计划} left JOIN {出货计划明细} ON {出货计划}.订单号 = {出货计划明细}.订单号"

dt = cmd.ExecuteReader()

'对临时进行分组统计

Dim b As New CrossTableBuilder("横向出货计划1",dt)

b.HGroups.AddDef("订单号")

b.HGroups.AddDef("班组")

b.HGroups.AddDef("系列")

b.HGroups.AddDef("批次号")

b.HGroups.AddDef("客款号")

b.HGroups.AddDef("颜色")

b.HGroups.AddDef("数量")

b.HGroups.AddDef("已走货数")

b.HGroups.AddDef("剩余")

b.HGroups.AddDef("备注")

b.VGroups.AddDef("计划走货日期", DateGroupEnum.None)

b.Totals.AddDef("计划走货量")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

' MainTable = Tables("横向出货计划1")

Tables("横向出货计划_Table1").DataSource = b.BuildDataSource()

提示：不存在名称为“”的table

改成：b.VGroups.AddDef("计划走货日期", DateGroupEnum.day)

后没有了提示，表格显示是这样的：

[此贴子已经被作者于2018/5/29 16:12:02编辑过]

改成：b.VGroups.AddDef("计划走货日期", DateGroupEnum.day)

后没有了提示，表格显示是3楼上传的图片样子。但计划出货日期想要显示*月*日，怎么写？

主题：SQL临时表的引用和VGroups的参数设置方法