主题：[求助]DataColChanging

如下表：

此主题相关图片如下：表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