主题：不能通过已删除的行访问该行的信息

不要在datacolchanged事件删除行。

 

你可以做一个按钮删除，或者关闭项目的时候删除。

关闭项目的时候删除，代码如何写？

DataTables("批号表").DeleteFor("库存数量=0")

我将以上代码放入beforecloseproject里面去，待我关闭项目以及重开项目之后，发现“库存数量”=0的那行没有被删除。为什么呢？

DataTables("批号表").DeleteFor("库存数量=0")

这个有效。谢谢。

批号表_DataColChanged

 

If e.DataCol.name = "库存数量"

    If e.DataRow("库存数量") = 0

        e.DataRow.delete

    End If

End If

“批号表”的datacolchanged里面有如上代码，我要改成：如果是“出入库”那个表导致的“库存数量" = 0，才允许执行删除命令。代码应该如何写？谢谢。

那就不要在datacolchanged事件写delete代码。

 

请在【出入库】导致库存数量变化的那个地方写删除的代码。

If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"

    If e.DataRow("批号") = ""

    Else

        Dim re As Boolean = False

        For Each dr As DataRow In DataTables("批号表").DataRows

            If dr("批号") = e.DataRow("批号") And dr("物料编号") = e.DataRow("物料编号") Then

                dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue

                dr("批号变动记录") = "出入库变动:" & Date.now & " " & User.Name

                dr("库存数量变动记录") = "出入库变动:" & Date.now & " " & User.Name

                re = True

                Exit For

            Else

                Continue For

            End If

        Next

        If re =False

            Dim dr As DataRow

            dr = DataTables("批号表").AddNew()

            dr("批号") = e.DataRow("批号")

            dr("物料编号") = e.DataRow("物料编号")

            dr("物料名称") = e.DataRow("物料名称")

            dr("类别") = e.DataRow("类别")

            dr("来源") = e.DataRow("来源")

            dr("客户简称") = e.DataRow("客户")

            dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量")

            dr("批号变动记录") = "出入库变动:" & Date.now & " " & User.Name

            dr("库存数量变动记录") = "出入库变动:" & Date.now & " " & User.Name

        End If

    End If

End If

有道理。以上是“出入库”dtacolchanged里面的有关代码，如何加入代码达到如上目的? 谢谢。