- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于数据转换，或者是报表的实现问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145106)
-- 发布时间：2020/1/8 16:05:00
-- 关于数据转换，或者是报表的实现问题。
之前做的销售数据需要导入管家婆中，生产功能继续用foxtable。
如图13是出货单记录（用于记录客户信息，出货单号和金额，收款情况等。）
如图14是出货记录详细。（用于记录客户名称，产品名称，单价，数量，等）
如图15 是需要导入管家婆的格式，红线框代表出货单，蓝色框代表出货记录详细。
请问图13、14如何转化成图15 的格式？
图13
此主题相关图片如下：13.jpg
图14
此主题相关图片如下：14.jpg
图15
此主题相关图片如下：15.jpg
[此贴子已经被作者于2020/1/8 16:06:26编辑过]
-- 发布时间：2020/1/8 16:11:00
--
把2个表数据合并为一个查询表：http://www.foxtable.com/webhelp/topics/2322.htm
格式（列位置）和需要导出的格式完全一致，然后直接导出txt文件即可：http://www.foxtable.com/webhelp/topics/0180.htm
-- 发布时间：2020/1/8 16:14:00
--
谢谢！
-- 发布时间：2020/1/8 17:56:00
--
这是左右格式，不是15图 的上下格式啊？
此主题相关图片如下：16.jpg
[此贴子已经被作者于2020/1/9 8:42:40编辑过]
-- 发布时间：2020/1/9 8:48:00
--
把2个表的数据填充到图15的表格中：http://www.foxtable.com/webhelp/topics/1533.htm，在把图15的表导出
-- 发布时间：2020/1/19 10:39:00
--
还是不太明白。
举个简单点的列子，比如这样子该如何实现呢？能帮我写一下吗？
谢谢！
此主题相关图片如下：17.jpg
-- 发布时间：2020/1/19 11:04:00
--
Dim Cols1() As String = {"出货单","出货日期","单位ID"} ‘其它列自己补充完整，注意要一一对应
Dim Cols2() As String = {"第一列","第二列","第四列"}‘其它列自己补充完整，注意要一一对应
Dim Cols3() As String = {"产品ID","产品名称","规格"}‘其它列自己补充完整，注意要一一对应
Dim Cols4() As String = {"第四列","第三列","第五列"}‘其它列自己补充完整，注意要一一对应
For Each dr As DataRow In DataTables("出货单").Select("出货单 is not null")
Dim dr2 As DataRow = DataTables("导出").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr(Cols1(i))
Next
For Each dr3 As DataRow In DataTables("出货记录").Select("出货单 = \'" & dr("出货单") & "\'")
Dim dr4 As DataRow = DataTables("导出").AddNew()
For i As Integer = 0 To Cols3.Length -1
dr4(Cols4(i)) = dr3(Cols3(i))
Next
Next
Next
-- 发布时间：2020/1/19 11:07:00
--
写在哪里？
-- 发布时间：2020/1/19 11:21:00
--
窗口按钮，或者菜单按钮
-- 发布时间：2020/1/19 15:47:00
--
我还是不会。代码写在哪里？
[此贴子已经被作者于2020/1/19 15:47:43编辑过]