- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 库存报警问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11447)
-- 发布时间：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事件,特寻求解决方案
附件传不上来
-- 发布时间：2011/7/28 19:53:00
--
明明当前库存会触发DataColChanged事件啊？
-- 发布时间：2011/7/28 21:25:00
--
在表B操作,以上代码不起作用啊
[此贴子已经被作者于2011-7-28 21:25:50编辑过]
-- 发布时间：2011/7/29 11:32:00
--
哪位高手帮我指点一下
-- 发布时间：2011/7/30 22:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.zip |
-- 发布时间：2011/7/30 22:38:00
--
命令窗口执行DataTables("表A").DataCols("当前仓存").RaiseDataColChanged
-- 发布时间：2011/7/30 22:40:00
--
你明明触发了表A事件,看这个.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目5.zip |
-- 发布时间：2011/7/31 0:47:00
--
表B的这段代码会导致不断报警
If e.DataCol.Name = "当前仓存" Then
DataTables("表A").DataCols("当前仓存").RaiseDataColChanged()
End If
-- 发布时间：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