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

Dim dtb As New DataTableBuilder("横向大货用料表1")
dtb.AddDef("物料名称", Gettype(String), 999)
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("物料id = '" & v(1) & "'")
    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