共9 条记录, 每页显示 10 条, 页签: [1]

标题：库存报警问题

1楼

实话实说 发表于：2011/7/28 17:54:00

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

附件传不上来

2楼

狐狸爸爸 发表于：2011/7/28 19:53:00

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

3楼

实话实说 发表于：2011/7/28 21:25:00

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

[此贴子已经被作者于2011-7-28 21:25:50编辑过]

4楼

实话实说 发表于：2011/7/29 11:32:00

哪位高手帮我指点一下

5楼

实话实说 发表于：2011/7/30 22:24:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.zip

6楼

唐尸三摆手 发表于：2011/7/30 22:38:00

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

7楼

blackzhu 发表于：2011/7/30 22:40:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.zip

8楼

实话实说 发表于：2011/7/31 0:47:00

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

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

9楼

狐狸爸爸 发表于：2011/7/31 7:57:00

表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

共9 条记录, 每页显示 10 条, 页签: [1]