Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用SQL语句生成临时表“窗口_table2”为SQLTable，为什么表内容没有加载进来？


  共有2383人关注过本帖树形打印复制链接

主题：用SQL语句生成临时表“窗口_table2”为SQLTable，为什么表内容没有加载进来？
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		用SQL语句生成临时表“窗口_table2”为SQLTable，为什么表内容没有加载进来？  发帖心情 Post By：2018/7/16 13:57:00 [显示全部帖子]

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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		VGroups加载没有显示颜色尺码  发帖心情 Post By：2018/7/26 16:43:00 [显示全部帖子]

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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/7/26 16:48:00 [显示全部帖子]

111111111111111
[此贴子已经被作者于2018/7/26 16:48:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/7/26 17:05:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/7/26 17:19:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/7/26 17:42:00 [显示全部帖子]


改了一下代码，之前没有加大货用料表：
Select * F ROM {款号登记} left JOIN {款式颜色} ON {款号登记}.款号 = {款式颜色}.款号 left join {款式尺码} on {款号登记}.款号= {款式尺码}.款号 left join {大货用料表} on {款号登记}.{款号}={大货用料表}.{款号}

图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看


加了统计代码
b.Totals.AddDef("颜色")
b.Totals.AddDef("尺码")
后


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看



但提示，从字符串“宝蓝色”到类型“Decimal”的转换无效。
[此贴子已经被作者于2018/7/26 17:42:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/7/31 14:55:00 [显示全部帖子]

'用SQL语句生成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
'cmd.CommandText = "Select * F ROM {大货用料表} A left JOIN {款式颜色} B  ON A.款号 = B.款号 left join {款式尺码} C on A.{款号}= C.{款号} "
cmd.CommandText = "Select * F ROM {款号登记} left JOIN {款式颜色} ON {款号登记}.款号 = {款式颜色}.款号 left join {款式尺码} on {款号登记}.款号= {款式尺码}.款号 left join {大货用料表} on {款号登记}.{款号}={大货用料表}.{款号} "
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.Totals.AddDef("颜色", AggregateEnum.count)
'b.Totals.AddDef("尺码", AggregateEnum.count)


b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()


Tables("大货用量表_Table2").DataSource = b.BuildDataSource()



不加统计没有颜色尺码合计项，但颜色尺码没有横向排列：



图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2018/7/31 16:22:41编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询