主题：[求助]表事件DataColChanged有错误。----新问题

Select Case e.DataCol.Name
    Case "疫苗ID","入库(领用)"","出库(使用)"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [疫苗ID] = '" & e.DataRow("疫苗ID") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = '" & dr("疫苗ID") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(入库(领用))",Filter)
            Dim Val2 As Double = e.DataTable.Compute("Sum(出库(使用))",Filter)
            dr("库存") = Val1 - Val2
        Next
        If e.DataCol.Name = "疫苗ID" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [疫苗ID] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [疫苗ID] = '" & dr("疫苗ID") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(入库(领用))",Filter)
                Dim Val2 As Double = e.DataTable.Compute("Sum(出库(使用))",Filter)
                dr("库存") = Val1 - Val2
            Next
        End If
End Select

输入以上代码出现图中错误。请问哪里出问题了？

请问程老师有什么好办法么？ 我是按帮助里改的。

如果我还想把库房分号代码应该怎么写？（1号库房  某产品  ）

不是您说的那个意思，

我们出库不完全遵循先进先出与出完一批再出下一批原则，而是根据数量需要进行合理搭配出库，因为同样药品（建筑行业的材料）有多供货厂商多批次，我们需要根据实际使用来出库。（药品的基础资料有另一个表体现）

所以在使用时需要根据不同人员管理下的药品进行单独库管理，即：假定每一个工作人员都有自己的一个药品库，最后再做相互之间调用的关系。

这个好，请问程老师咋弄

可是貌似还未解决不同操作员下有相同产品的问题。。。。。

父子表

我研究一下去。多谢程老师指点。

我也是想实现您说的这个方式，但是现在连思路都是乱的，您能帮我对思路方面提点建议么？

好吧，我继续求索，不早了，程老师也该休息了吧。