如下表：

此主题相关图片如下：表a.png

累计到货列为同品名和型号规格的今单到货的累计

  DataColChanged

If e.DataCol.Name = "今单到货" Then \'如果是折扣列的内容发生变化.

    Dim sum = DataTables("表A").Compute("Sum(今单到货)","品名 = \'" & e.DataRow("品名")  & "\'and  型号规格 = \'" & e.DataRow("型号规格")  & "\'" )

    e.DataTable.ReplaceFor("累计到货", sum, "品名 = \'" & e.DataRow("品名")  & "\'and 型号规格 = \'" & e.DataRow("型号规格")  & "\'")

End If

现想：在今单到货列输入数据时判断     当（ 输入的数据e.NewValue +当前行的累计到货）> 需求     输入的数据无效，否则允许输入且累计今单到货。

帮助文件

DataColChanging有提到

例如在订单表中，要求折扣列的值不能超过0.15，可以在DataColChanging事件中设置如下代码：

If e.DataCol.Name = "折扣" Then \'如果是折扣列的内容发生变化。
    If e.NewValue > 0.15 Then \'如果新值大于0.15。
        e.Cancel = True \'取消变动。
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:累计_201710211812.zip