大师：我这个是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

请大师指点

                        谢谢

窗口中的上下表都是SQLtablege

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

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