- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- SQL临时表的引用和VGroups的参数设置方法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119645)
-- 发布时间：2018/5/29 14:38:00
-- SQL临时表的引用和VGroups的参数设置方法
此主题相关图片如下：未命名2.png
问题1：窗口如何引用SQL临时表的
问题2：VGroups的参数设置方法，如何将计划出货日期依次排列不汇总成月
b.VGroups.AddDef("计划走货日期")
\'用SQL语句生成临时表
此主题相关图片如下：未命名.png
此主题相关图片如下：未命名.pngDim 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编辑过]
-- 发布时间：2018/5/29 15:00:00
--
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)
-- 发布时间：2018/5/29 16:00:00
--
此主题相关图片如下：未命名.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编辑过]
-- 发布时间：2018/5/29 16:04:00
--
改成这样
\'b.Build()
Tables("横向出货计划_Table1").DataSource = b.BuildDataSource()
-- 发布时间：2018/5/29 16:14:00
--
改成：b.VGroups.AddDef("计划走货日期", DateGroupEnum.day)
后没有了提示，表格显示是3楼上传的图片样子。但计划出货日期想要显示*月*日，怎么写？
-- 发布时间：2018/5/29 16:22:00
--
改成这样
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()