主题：控制生产累计数不允许大于计划生产数

Select Case e.DataCol.name

    Case "数量"

        If e.NewValue > 0 Then

            Dim dr As DataRow = DataTables("生产计划").Find("订单号='" & e.DataRow("订单号") & "' And 型号= '" & e.DataRow("产品名称") & "'")

            If dr IsNot Nothing Then

                Dim sum As Double = e.DataTable.Compute("Sum(数量)","[_Identify] <> " & e.DataRow("_Identify"))

                If sum + e.NewValue > dr("数量") Then

                    msgbox("数量超出!")

                    e.Cancel = True

                End If

            End If

        End If

End Select

另外在统计表里进行录入是不现实的，统计表往往只能作为参考。当然如果你对代码驾驭的很熟那另外说