以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用SQL语句生成临时表“窗口_table2”为SQLTable，为什么表内容没有加载进来？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121950)
--  作者：yetle
--  发布时间：2018/7/16 13:57:00
--  用SQL语句生成临时表“窗口_table2”为SQLTable，为什么表内容没有加载进来？
Dim tbl As Table = Tables("选择款_Table1")
Dim pd As WinForm.ComboBox = Forms("窗口").Controls("ComboBox1")
If tbl.Current IsNot Nothing Then
    pd.text = tbl.Current("款号")
End If

\'用SQL语句生成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * F ROM {款号登记} left JOIN {款式颜色} ON {款号登记}.款号 = {款式颜色}.款号 left join {款式尺码} on {款号登记}.{款号}= {款式尺码}.{款号} "

‘’这句改成：
cmd.CommandText = "Select * F ROM {款号登记} A left JOIN {款式颜色} B ON A.款号 = B.款号 left join {款式尺码} C on A.{款号}= B.{款号} "

dt = cmd.ExecuteReader()
\'对临时进行分组统计
Dim b As New CrossTableBuilder("大货用量颜色尺码",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.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.HGroups.AddDef("用量信息_变更日期")
b.HGroups.AddDef("用量信息_下级")
b.HGroups.AddDef("供应商属性_供应商名称")
b.HGroups.AddDef("供应商属性_转换率")
b.HGroups.AddDef("供应商属性_采购单位")
b.HGroups.AddDef("供应商属性_成份")


b.VGroups.AddDef("颜色","颜色_{0}")
b.VGroups.AddDef("尺码","尺码_{0}")

\'b.VGroups.AddDef("B.颜色","B.颜色_{0}")
\'b.VGroups.AddDef("C.尺码","C.尺码_{0}")



b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
\' MainTable = Tables("横向出货计划1")
Tables("窗口_Table2").DataSource = b.Build()

DataTables("窗口_Table2").load()





Forms("选择款").Close()
[此贴子已经被作者于2018/7/26 16:47:51编辑过]
--  作者：y2287958
--  发布时间：2018/7/16 14:16:00
--  
Tables("窗口_Table2").DataSource = b.BuildDataSource()
--  作者：有点甜
--  发布时间：2018/7/16 14:20:00
--  

b.Build() 都删除，改成

 

Tables("窗口_Table2").DataSource = b.BuildDataSource()

 
--  作者：yetle
--  发布时间：2018/7/26 16:43:00
--  VGroups加载没有显示颜色尺码
Dim tbl As Table = Tables("选择款_Table1")
Dim pd As WinForm.ComboBox = Forms("窗口").Controls("ComboBox1")
If tbl.Current IsNot Nothing Then
    pd.text = tbl.Current("款号")
End If

\'用SQL语句生成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * F ROM {款号登记} left JOIN {款式颜色} ON {款号登记}.款号 = {款式颜色}.款号 left join {款式尺码} on {款号登记}.{款号}= {款式尺码}.{款号} "

‘’这句改成：
cmd.CommandText = "Select * F ROM {款号登记} A left JOIN {款式颜色} B ON A.款号 = B.款号 left join {款式尺码} C on A.{款号}= B.{款号} "
也没有加载显示颜色尺码

dt = cmd.ExecuteReader()
\'对临时进行分组统计
Dim b As New CrossTableBuilder("大货用量颜色尺码",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.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.HGroups.AddDef("用量信息_变更日期")
b.HGroups.AddDef("用量信息_下级")
b.HGroups.AddDef("供应商属性_供应商名称")
b.HGroups.AddDef("供应商属性_转换率")
b.HGroups.AddDef("供应商属性_采购单位")
b.HGroups.AddDef("供应商属性_成份")


b.VGroups.AddDef("颜色","颜色_{0}")
b.VGroups.AddDef("尺码","尺码_{0}")

\'b.VGroups.AddDef("B.颜色","B.颜色_{0}")
\'b.VGroups.AddDef("C.尺码","C.尺码_{0}")



b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
\' MainTable = Tables("横向出货计划1")
Tables("窗口_Table2").DataSource = b.Build()

DataTables("窗口_Table2").load()





Forms("选择款").Close()

此主题相关图片如下：111.png
按此在新窗口浏览图片


[此贴子已经被作者于2018/7/26 16:50:16编辑过]
--  作者：yetle
--  发布时间：2018/7/26 16:48:00
--  
111111111111111
[此贴子已经被作者于2018/7/26 16:48:45编辑过]
--  作者：有点甜
--  发布时间：2018/7/26 16:51:00
--  

在sql窗口执行这个语句得到的表格是怎样的？截图发出来看看。

 

Select * F ROM {大货用料表} left JOIN {款式颜色}  ON {大货用料表}.款号 = {款式颜色}.款号 left join {款式尺码}  on {大货用料表}.{款号}= {款式尺码}.{款号}

 

 
--  作者：yetle
--  发布时间：2018/7/26 17:05:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/7/26 17:08:00
--  

在sql窗口执行这个语句得到的表格是怎样的？截图发出来看看。

 

http://www.foxtable.com/webhelp/scr/1484.htm

 

 

Select * F ROM {大货用料表} left JOIN {款式颜色}  ON {大货用料表}.款号 = {款式颜色}.款号 left join {款式尺码}  on {大货用料表}.{款号}= {款式尺码}.{款号}

 

 
--  作者：yetle
--  发布时间：2018/7/26 17:19:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/7/26 17:26:00
--  

1、在这里测试，得到的列名是什么？

 

http://www.foxtable.com/webhelp/scr/1484.htm

 

2、把列名改成红色代码

 

b.VGroups.AddDef("颜色","颜色_{0}")

 

3、加上统计代码

 

b.Totals.AddDef("某列") \'添加数量列用于统计