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编辑过]

1、http://www.foxtable.com/webhelp/scr/1909.htm

2、设置日期列格式

DateGroupEnum枚举的可选值：
　
None ：     不分组
Year：      按年分组
Quarter：   按季度分组
Month：     按月分组
Week：      按周分组
Day：       按天分组，月中的某一天。
Hour：      按小时分组
Minute：    按分钟分组 Second：    按秒分组

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

此主题相关图片如下：未命名.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.Build()
Tables("横向出货计划_Table1").DataSource = b.BuildDataSource()

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

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

改成这样

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select *, cstr(第十列) as 日期 from {表C}"

'sqlserver 改成 cmd.CommandText = "Select *, convert(varchar(10), 第十列, 120) as 日期 from {表C}"
dt = cmd.ExecuteReader()
'对临时进行分组统计
Dim b As New CrossTableBuilder("横向出货计划1",dt)
b.HGroups.AddDef("年份")
b.VGroups.AddDef("日期")
b.Totals.AddDef("第八列")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()

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