主题：[求助]代码修改求助，包括思路

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
                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
    Else
        Dim drs As List(Of DataRow) = DataTables("配货筛选明细表").Select("物料编码 = '" & e.DataRow("物料编码") & "'")
        For i As Integer = drs.count - 1 To 0 Step -1
            If drs(i).RowState = DataRowState.Added Then
                drs(i).delete
            End If
        Next
    End If
End If

你说要增加多行啊

If e.DataCol.name = "确定" Then
    If e.DataRow("确定") = True Then
        Dim dr As DataRow
        dr = DataTables("库存明细表").find ("物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'","SN")
        If dr IsNot Nothing Then
            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
        End If
    Else
        Dim drs As List(Of DataRow) = DataTables("配货筛选明细表").Select("物料编码 = '" & e.DataRow("物料编码") & "'")
        For i As Integer = drs.count - 1 To 0 Step -1
            If drs(i).RowState = DataRowState.Added Then
                drs(i).delete
            End If
        Next
    End If
End If

无语，没有问题。

 

不会做就上传实例。

做例子发上来

请单独做一个例子发上来，说明逻辑。不需要上传整个项目啊，连接你的数据库很费事的啊。

代码没有错，错就是你逻辑有错

 

你写的：确定去掉勾后，希望也是仅把增加的去掉。代码就是把你新增的，满足条件的行删除。

要不你就加一列 标识列，然后写代码

 

If e.DataCol.name = "确定" Then
    If e.DataRow("确定") = True Then
        Dim dr As DataRow
        dr = DataTables("库存明细表").find ("物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'","SN")
        If dr IsNot Nothing Then
            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("数量")
                ndr("标志") = e.DataRow("_Identify")
            Next
        End If
    Else
        Dim drs As List(Of DataRow) = DataTables("配货筛选明细表").Select("物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'")
        For i As Integer = drs.count - 1 To 0 Step -1
            'If drs(i).RowState = DataRowState.Added Then
            drs(i).delete
            'End If
        Next
    End If
End If

看16楼，17楼。

 

慢的问题，是你数据表多以及数据多的缘故，也和你服务器的带宽有关。这个是无法用代码解决的。

测试了一下连接你数据库，还是挺快的。

 

控制一下初始加载的数据

 

http://www.foxtable.com/help/topics/1998.htm

 

不要全部加载，因为你有很多地方重新load了，导致数据重复加载多次。

 

同时，看看 http://www.foxtable.com/help/topics/2730.htm