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

不要在datacolchanged事件删除行。

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

那就不要在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
       
        DataTables("批号表").deletefor("库存数量 = 0")
    End If
   
End If