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

甜老师，

此主题相关图片如下：微信截图_20171109150349.png

因为产品吊牌价没有分到颜色和尺码

而销售明细有分到颜色和尺码

现在我这样的代码在组合时，就只有这个款的第一行有匹配到吊牌价，有没有别的方式可以这一款的所有颜色尺码都匹配上吊牌价呢

Dim b1 As New sqlgroupTableBuilder("统计表1","店铺销售明细商品")

Dim dt1 As fxDataSource

b1.C

b1.Groups.AddDef("店仓ID")

b1.Groups.AddDef("商品款号")

b1.Groups.AddDef("颜色")

b1.Groups.AddDef("尺码")

b1.Groups.AddDef("店仓名称","销售_店仓名称")

b1.Totals.AddDef("销售数量","销售_数量")

b1.filter = filter & " and " & filter2

b1.CommandTimeOut = 600

dt1 = b1.BuildDataSource()

Dim b2 As New SQLgroupTableBuilder("统计表2","此刻库存")

Dim dt2 As fxDataSource

b2.C

b2.Groups.AddDef("店仓ID")

b2.Groups.AddDef("商品款号")

b2.Groups.AddDef("颜色")

b2.Groups.AddDef("尺码")

b2.Groups.AddDef("店仓名称","可用库存_店仓名称")

b2.Totals.AddDef("可用库存","可用库存_数量")

b2.filter = filter2

b2.CommandTimeOut = 600

dt2 = b2.BuildDataSource()

Dim b3 As New SQLgroupTableBuilder("统计表3","m_product")

Dim dt3 As fxDataSource

b3.C

b3.Groups.AddDef("name")

b3.Groups.AddDef("pricelist","吊牌价")

b3.filter = filter3

b3.CommandTimeOut = 600

dt3 = b3.BuildDataSource()

Dim nms1 As String() = {"商品款号","店仓ID","颜色","尺码"} '指定连接列

Dim nms2 As String() = {"商品款号"} '

Dim nms3 As String() = {"name"} '

dt1.Combine(nms1,dt2,nms1)

dt1.Combine(nms2,dt3,nms3)

forms("otb").Controls("table1").Table.DataSource = dt1

生成后处理，如

Dim t As Table = Tables("表A")
Dim p As String = Nothing
For Each r As Row In t.rows
    If r.IsNull("第一列") Then
        r("第一列") = p
    Else
        p = r("第一列")
    End If
Next

厉害了，甜老师。按照前一行来取值。

不过甜老师，遇到了一个问题。

有的产品的有的尺码有库存，没有销售，就没有按顺序来了。

此主题相关图片如下：微信截图_20171109160237.png

我尝试先排序，再取，但是第一行就没有吊牌了，因为他是没有销售，之前是没有吊牌的，现在排到第一行，也就没有了。。

forms("otb").Controls("table1").Table.sort = "商品款号,颜色,尺码"

[此贴子已经被作者于2017/11/9 17:04:44编辑过]

Dim t As Table = Tables("表A")
Dim p As String = Nothing
For Each r As DataRow In t.DataTable.Select("", "第二列,第三列,第一列 desc")
    If r.IsNull("第一列") Then
        r("第一列") = p
    Else
        p = r("第一列")
    End If
Next