[求助]代码修改求助，包括思路 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在库位数量统计表有列：物料编码，库位编码，预配货数量，确定。其中确定是逻辑列。

希望

1.确定打勾后在库位明细表查找"物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'"且还满足SN大小排序。

还需要满足预配货数量是几就在配货筛选明细表只增加几行数据。----------这个代码改怎么写？

下面的代码是满足"物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'"且还满足SN大小排序的行都增加到了配货筛选明细表了。没有按照预配货数量来增加行数。

2.确定去掉勾后，希望也是仅把增加的去掉，而不是一下子把所有满足"物料编码 = '" & e.DataRow("物料编码") & "'"的行都去掉。

If e.DataCol.name = "确定" Then

If e.DataRow("确定") = True Then

Dim drs As List(of DataRow)

drs = DataTables("库存明细表").Select ("物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'","SN")

If drs.Count > 0 Then

For Each dr As DataRow In drs

Dim ndr As DataRow = DataTables("配货筛选明细表").AddNew()

ndr("SN") = dr("SN")

ndr("物料编码") = dr("物料编码")

ndr("库位号") = dr("库位号")

ndr("库位编码") = dr("库位编码")

ndr("数量") = dr("数量")

End If

Else

DataTables("配货筛选明细表").DeleteFor("物料编码 = '" & e.DataRow("物料编码") & "'")

End If

If drs.Count > 0 Then
            For Each dr As DataRow In drs
                For i As Integer = 1 To e.DataRow("预配货数量")
                    Dim ndr As DataRow = DataTables("配货筛选明细表").AddNew()
                    ndr("SN") = dr("SN")
                    ndr("物料编码") = dr("物料编码")
                    ndr("库位号") = dr("库位号")
                    ndr("库位编码") = dr("库位编码")
                    ndr("数量") = dr("数量")
                Next
            Next
        End If

这不应是重复增加了吗？