三表连接，横向排列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb As New DataTableBuilder("横向大货用料表")

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))

For Each v As String In DataTables("配码表").GetValues("尺码信息")

dtb.AddDef("尺码_" & v, Gettype(String))

Dim t As Table = Forms("大货用量表").Controls("Table1").Table

t.datasource = dtb.BuildDataSource

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

Dim dr1 As Row = t.AddNew()

dr1("物料ID") = v(0)

dr1("物料名称") = v(1)

dr1("款号") = v(2)

For Each dr2 As DataRow In DataTables("配色表").Select("物料ID = '" & v(0) & "' And 物料名称 = '" & v(1) & "' and 款号 ='" & v(2) &"'")

dr1("颜色_" & dr2("颜色信息")) = dr2("配色信息")

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