- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合并行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127834)
-- 发布时间：2018/11/23 9:19:00
-- 合并行
生成横向表，
此主题相关图片如下：11.png
同一款同一颜色同一杯型的尺码没有合并成一行，要合并成一行怎么写？
此主题相关图片如下：11.png同一款同一颜色同一杯型的尺码没有合并成一行，要合并成一行怎么写？
[此贴子已经被作者于2018/11/23 17:40:45编辑过]
-- 发布时间：2018/11/23 9:23:00
--
比如
For Each v As String() In DataTables("销售明细尺码数").GetValues("款号|订单号|颜色|货期|杯型|物供号|款号ID|销售明细行ID","[款号ID] = \'" & tbl.current("款号ID") & "\'")
改成
For Each v As String() In DataTables("销售明细尺码数").GetValues("款号|订单号|颜色|货期|杯型|物供号|款号ID","[款号ID] = \'" & tbl.current("款号ID") & "\'")
也就是红色的列，必须唯一，才行，不然，不相同肯定会重复添加啊。
修改代码以后，下面对应的代码也要修改。
-- 发布时间：2018/11/23 11:38:00
--
可以了，但是dt2尺码对应的数量没有取过来
For Each s As String In str1.Split(",")
If t.Cols.Contains("尺码_" & s) Then
fdr("衣裤尺码明细_" & s)=val(drr("尺码_" & s))
End If
Next
For Each s As String In str2.Split(",")
If t.Cols.Contains("尺码_" & s) Then
fdr("文胸尺码明细_" & s)=val(drr("尺码_" & s))
End If
Next
-- 发布时间：2018/11/23 12:45:00
--
比如
For Each drr As DataRow In dt1.DataRows
Dim fdr As DataRow = dt2.Find("销售明细行ID = \'" & drr("销售明细行ID") & "\' ")
改成
For Each drr As DataRow In dt1.DataRows
for each id As String in DataTables("销售明细尺码数").GetValues("销售明细行ID", "款号 = \'" & drr("款号") & "\' And 订单号 = \'" & drr("订单号") & "\' and 颜色 = \'" & drr("颜色") & "\' ")
Dim fdr As DataRow = dt2.Find("销售明细行ID = \'" & id & "\' ")
-- 发布时间：2018/11/23 12:45:00
--
不会做，请上传对应实例。
-- 发布时间：2018/11/23 15:47:00
--
重新改了一下后，
[此贴子已经被作者于2018/11/24 9:40:16编辑过]
-- 发布时间：2018/11/23 15:49:00
--
参考4楼代码。不会做实例发上来测试。
-- 发布时间：2018/11/24 9:40:00
--
生成“销售明细尺码”表的代码在审核按钮里面，请查收
[此贴子已经被作者于2018/11/24 10:19:12编辑过]
-- 发布时间：2018/11/24 9:53:00
--
哪个尺码对应的数量没有取到？截图说明一下
-- 发布时间：2018/11/24 10:13:00
--
table5是临时表，目的是将临时表的数据保存到销售明细尺码表里面，现在能生成行记录，但是尺码对应的数量取不到。