主题：库存报警问题

表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事件,特寻求解决方案

附件传不上来

明明当前库存会触发DataColChanged事件啊？

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

哪位高手帮我指点一下

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

点击浏览该文件:管理项目5.zip

命令窗口执行DataTables("表A").DataCols("当前仓存").RaiseDataColChanged

你明明触发了表A事件,看这个.

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

点击浏览该文件:管理项目5.zip

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

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

表B的代码改为：

 

If e.DataCol.Name = "当前仓存" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("表A")
    If pr IsNot Nothing Then
        DataTables("表A").DataCols("当前仓存").RaiseDataColChanged(pr)
    End If
End If