Dim dtb As New DataTableBuilder("尺码表")
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("款式", Gettype(String), 32)
For Each v As String In DataTables("下单明细").GetValues("尺码")
dtb.AddDef(v, Gettype(String),32)
Next
dtb.Build()
For Each dr As DataRow In DataTables("订单表").DataRows
Dim dr1 As DataRow = DataTables("尺码表").AddNew()
dr1("客户") = dr("客户")
dr1("款式") = dr("款式")
For Each dr2 As DataRow In DataTables("下单明细").Select("编号 = '" & dr("_Identify") & "'","尺码")
dr1(dr2("尺码")) = dr2("数量")
Next
Next
MainTable = Tables("尺码表")
加好友 
发短信
Post By：2017/4/11 14:45:00 [显示全部帖子]
