主题：库存报警问题

表A中当前库存是由表B(关联表)统计而来,以下代码在表A的DataColChanged中设置

Dim v As Double = Val(e.NewValue)

Dim b As Double = e.DataRow("仓存上限")
If e.DataCol.Name = "当前仓存" Then
    If v > b Then
    MessageBox.Show("超过库存上限,请控制采购")
    End If

Dim c As Double = e.DataRow("仓存下限")
    If v < c Then
    MessageBox.Show("低于库存上限,请赶紧采购")
    End If
End If

不能正常报警,我知道"当前仓存"不能触发DataColChanged事件,特寻求解决方案

附件传不上来

在表B操作,以上代码不起作用啊

表B的这段代码会导致不断报警

If e.DataCol.Name = "当前仓存" Then
   DataTables("表A").DataCols("当前仓存").RaiseDataColChanged()
End If