Foxtable(狐表) → 用户栏目 → 专家坐堂 → 三表连接，横向排列


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

主题：三表连接，横向排列
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		三表连接，横向排列  发帖心情 Post By：2018/8/13 8:26:00 [显示全部帖子]

将配料表、配色表、配量表合并成一张表，用哪个方法，怎么写？（款式颜色和款式尺码是动态的）
[此贴子已经被作者于2018/8/14 17:45:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim dtb As New DataTableBuilder("大货用量表_横向配色表")

dtb.AddDef("物料名称", Gettype(String), 32)


For Each v As String In DataTables("配色表").GetValues("颜色信息")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("配色表").GetValues("物料名称")
    Dim dr1 As DataRow = DataTables("大货用量表_横向配色表").AddNew()
    dr1("物料名称") = v
    For Each dr2 As DataRow In DataTables("配色表").Select("物料名称 = '" & v & "'")
       dr1(dr2("颜色信息")) = dr2("配色信息")
    Next
Next


上面这段代码提示：大货用量表_横向配色表 不存在名为“第一列”的列
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

sql sever外部表上实例？
[此贴子已经被作者于2018/8/13 11:44:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


[此贴子已经被作者于2018/8/14 17:46:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有测试数据，我现在把数据放进来了
[此贴子已经被作者于2018/8/14 17:46:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

明白了，你给的是临时表，我给的是窗口表，所以有错误提示，能不能直接放在窗口表呢？或者窗口表如何引用临时表呢？（我需要直接在窗口显示横向查询结果）
那回到一楼，三表连接怎么写？
[此贴子已经被作者于2018/8/13 15:42:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、第一个表没有连接；
2、垂直列只有一列，我参照帮助加第二列和第三列提示：从类型“String()”到类型“String”的转换无效。
Dim dtb As New DataTableBuilder("横向大货用料表")
dtb.AddDef("物料名称", Gettype(String), 200)
dtb.AddDef("物料基本信息_物料ID", Gettype(String),25)
dtb.AddDef("款号", Gettype(String),100)

For Each v As String In DataTables("配色表").GetValues("颜色信息")
    dtb.AddDef("颜色_" & v, Gettype(String))
Next
For Each v As String In DataTables("配码表").GetValues("尺码信息")
    dtb.AddDef("尺码_" & v, Gettype(String))
Next
Dim t As Table = Forms("大货用量表").Controls("Table1").Table
t.datasource = dtb.BuildDataSource
For Each v As String In DataTables("配色表").GetValues("物料ID|物料名称")
    Dim dr1 As Row = t.AddNew()
    dr1("物料ID") = v(0)
    dr1("物料名称") = v(1)
   dr1("款号") = v(2)

    For Each dr2 As DataRow In DataTables("配色表").Select("物料ID = '" & v(0) & "' And 物料名称 = '" & v(1) & "'")
        dr1("颜色_" & dr2("颜色信息")) = dr2("配色信息")
    Next
Next
For Each v As String In DataTables("配码表").GetValues("物料ID|物料名称")
    Dim dr1 = t.DataTable.Find("物料名称 = '" & v & "'")
    If dr1 Is Nothing Then dr1 = t.DataTable.addnew
    dr1("物料基本信息_物料ID") = v(0)
    dr1("物料名称") = v(1)
    dr1("款号") = v(2)
    For Each dr2 As DataRow In DataTables("配码表").Select("物料ID = '" & v(0) & "' And 物料名称 = '" & v(1) & "'")
        dr1("尺码_" & dr2("尺码信息")) = dr2("配码信息")
    Next
Next


Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox1")
Tables("大货用量表_table1").Filter = "[款号] = '" & pd.text & "'"
[此贴子已经被作者于2018/8/13 17:44:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

提示从类型“String()”到类型“String”的转换无效。执行代码后，配码表没有出来结果，我想是配色表的string（）类型和配码表得string类型不匹配，但我将配码表的类型改为string（）后又提示： Dim dr1 = t.DataTable.Find("物料名称 = '" & v & "'")这句代码错，没有为类型string和string的1维数组定义运算符&
Dim dtb As New DataTableBuilder("横向大货用料表1")
dtb.AddDef("物料名称", Gettype(String), 200)
dtb.AddDef("物料ID", Gettype(String),25)
dtb.AddDef("款号", Gettype(String),100)

For Each v As String In DataTables("配色表").GetValues("颜色信息")
    dtb.AddDef("颜色_" & v, Gettype(String))
Next
For Each v As String In DataTables("配码表").GetValues("尺码信息")
    dtb.AddDef("尺码_" & v, Gettype(String))
Next
Dim t As Table = Forms("大货用量表").Controls("Table2").Table
t.datasource = dtb.BuildDataSource
For Each v As String() In DataTables("配色表").GetValues("款号|物料ID|物料名称")
    Dim dr1 As Row = t.AddNew()
     dr1("款号") = v(0)
    dr1("物料ID") = v(1)
    dr1("物料名称") = v(2)


    For Each dr2 As DataRow In DataTables("配色表").Select("物料ID = '" & v(1) & "' And 物料名称 = '" & v(2) & "'")
        dr1("颜色_" & dr2("颜色信息")) = dr2("配色信息")
    Next
Next
For Each v As String() In DataTables("配码表").GetValues("款号|物料ID|物料名称")
    Dim dr1 = t.DataTable.Find("物料名称 = '" & v & "'")
    If dr1 Is Nothing Then dr1 = t.DataTable.addnew
     dr1("款号") = v(0)
    dr1("物料ID") = v(1)
    dr1("物料名称") = v(2)
    For Each dr2 As DataRow In DataTables("配码表").Select("物料ID = '" & v(1) & "' And 物料名称 = '" & v(2) & "'")
        dr1("尺码_" & dr2("尺码信息")) = dr2("配码信息")
    Next
Next


Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox1")
Tables("大货用量表_table1").Filter = "[款号] = '" & pd.text & "'"这一句提示=缺少操作连接符
[此贴子已经被作者于2018/8/14 9:57:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、提示从类型“String()”到类型“String”的转换无效。执行代码后，配码表没有出来结果，我想是配色表的string（）类型和配码表得string类型不匹配，但我将配码表的类型改为string（）后又提示： Dim dr1 = t.DataTable.Find("物料名称 = '" & v & "'")这句代码错，没有为类型string和string的1维数组定义运算符&


这一句是保存代码弹出的提示，不是执行代码弹出的提示，将配码表的类型改为string（）保存不了



[此贴子已经被作者于2018/8/14 10:27:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请查看
[此贴子已经被作者于2018/8/14 17:46:45编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询