以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  三表连接,横向排列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123352)

--  作者:yetle
--  发布时间:2018/8/13 8:26:00
--  三表连接,横向排列
将配料表、配色表、配量表合并成一张表,用哪个方法,怎么写?(款式颜色和款式尺码是动态的)
[此贴子已经被作者于2018/8/14 17:45:38编辑过]

--  作者:有点甜
--  发布时间:2018/8/13 8:50:00
--  

参考

 

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

 

上面的转水平表的代码,拷贝两份即可。不会做上传具体项目测试。


--  作者:yetle
--  发布时间: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


上面这段代码提示:大货用量表_横向配色表 不存在名为“第一列”的列

--  作者:有点甜
--  发布时间:2018/8/13 11:32:00
--  
上传具体实例测试
--  作者:yetle
--  发布时间:2018/8/13 11:45:00
--  
sql sever外部表上实例?
[此贴子已经被作者于2018/8/13 11:44:57编辑过]

--  作者:有点甜
--  发布时间:2018/8/13 11:52:00
--  

导出表格,单独做一个项目,导入表格发上来。


--  作者:yetle
--  发布时间:2018/8/13 12:10:00
--  

[此贴子已经被作者于2018/8/14 17:46:01编辑过]

--  作者:有点甜
--  发布时间:2018/8/13 12:24:00
--  
你给的例子,我执行3楼代码,没问题,请说明如何测试出错。
--  作者:yetle
--  发布时间:2018/8/13 14:10:00
--  
没有测试数据,我现在把数据放进来了
[此贴子已经被作者于2018/8/14 17:46:17编辑过]

--  作者:有点甜
--  发布时间:2018/8/13 14:36:00
--  

测试没问题啊

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7 (2).foxdb