主题：[求助]sqltabler的关联子表增加行问题

大师：我这个是sqltable的关联表，用组色ID做关联，上表有三行数据，当鼠标点击第一行在下面增加行的时候不会有问题，但当鼠标点击第二行在下面增加行的时候，下面增加行的组色ID应该是上表第二行的组色ID，但增加出来的行却是上表第一行的组色ID，下面附图及关联代码：
此主题相关图片如下：捕获.png

Dim d As Row = Tables("销售订单_颜色尺码").Current
If d IsNot Nothing Then
    Tables("销售订单_面辅信息").Filter = "订单款号 = '" & d("订单款号") & "'and 组色ID = '" & d("组色ID") & "'"
End If
If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单款号 = '" & e.Table.Current("订单款号") & "'"
    If  DataTables("销售订单_面辅信息").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("销售订单_面辅信息").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If

请大师指点

                        谢谢

怎么做的关联？上表是窗口的sqltable？

窗口中的上下表都是SQLtablege

此主题相关图片如下：123.png

怎么做的关联？

Dim d As Row = Tables("销售订单_颜色尺码").Current
If d IsNot Nothing Then
    Tables("销售订单_面辅信息").Filter = "订单款号 = '" & d("订单款号") & "'and 组色ID = '" & d("组色ID") & "'"
End If
If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单款号 = '" & e.Table.Current("订单款号") & "'"
    If  DataTables("销售订单_面辅信息").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("销售订单_面辅信息").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If

怎么增加行的？怎么给组色ID赋值的？

用系统增加行代码增加行：

Tables("销售订单_面辅信息").AddNew()

用下面的代码在子表事件的DataColChanged给组色ID赋值：

If e.DataCol.Name = "订单款号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("组色ID") = Nothing
    Else
        Dim drx As DataRow
        drx = DataTables("销售订单_颜色尺码").Find("[订单款号] = '" & e.NewValue & "'")
        If drx IsNot Nothing
            e.DataRow("组色ID") = drx("组色ID")
        End If
    End If
End If

"销售订单_颜色尺码"一个[订单款号] 会对应多个"组色ID"的吧，上面代码只是把找到的第一个赋值给"销售订单_面辅信息"

谢谢