主题：[求助]各位狐中高手，帮帮忙 ，如何在出库单表中已发列打钩后，库存表库存数量自动实施减去出库数量

Select Case e.DataCol.Name

    Case "已发"

        If e.NewValue = True Then

            Dim dr As DataRow = DataTables("库存").Find("物料代码 ='" & e.DataRow("物料代码") & "'")

            If dr IsNot Nothing Then

                dr("库存数量")=dr("库存数量")-e.DataRow("数量")

            End If

        End If

End Select