主题：[求助]逻辑列打勾，库存表根据型号、品名、规格自动增减数量

If e.DataCol.Name = "逻辑列" Then

    Dim dt As DataTable = DataTables("库存表")

    Dim filter As String = "型号 = '" & e.DataRow("型号") & "' and 品名 = '" & e.DataRow("品名") & "' and 规格 = '" & e.DataRow("规格") & "'"

    Dim fdr As DataRow = dt.Find(filter)

    If fdr Is Nothing Then

        fdr = dt.AddNew

        fdr("型号") = e.DataRow("型号")

        fdr("品名") = e.DataRow("品名")

        fdr("规格") = e.DataRow("规格")

    End If

    fdr("库存数量") = e.DataTable.Compute("sum(进货数量)", filter & " and 逻辑列 = true")

End If