主题：三表连接，横向排列

参考

 

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

 

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

上传具体实例测试

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

你给的例子，我执行3楼代码，没问题，请说明如何测试出错。

测试没问题啊

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7 (2).foxdb

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

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

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("物料名称")
    Dim dr1 As Row = t.AddNew()
    dr1("物料名称") = v
    For Each dr2 As DataRow In DataTables("配色表").Select("物料名称 = '" & v & "'")
        dr1("颜色_" & dr2("颜色信息")) = dr2("配色信息")
    Next
Next
For Each v As String In DataTables("配码表").GetValues("物料名称")
    Dim dr1 = t.DataTable.Find("物料名称 = '" & v & "'")
    If dr1 Is Nothing Then dr1 = t.DataTable.addnew
    dr1("物料名称") = v
    For Each dr2 As DataRow In DataTables("配码表").Select("物料名称 = '" & v & "'")
        dr1("尺码_" & dr2("尺码信息")) = dr2("配码信息")
    Next
Next

For Each v As String() In DataTables("配码表").GetValues("物料ID|物料名称")

 

--------------------------------

 

msgbox(pd.text) 弹出什么？

去看你table1的currentChanged事件，里面应该有错误代码。

请上传出错实例测试

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(2) & "'")
    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

代码没问题，绝对是你数据有问题。把【物料名称】列拉宽一些看看数据。