- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请专家帮忙看看，表达式列的问题！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23362)
-- 发布时间：2012/9/10 10:17:00
-- 请专家帮忙看看，表达式列的问题！
库存量 是表达式列
我在商品入库表中入库了一个产品A之后，保存 正常，但是如果我再修改入库产品A 将产品A改成B之后，我再取消修改，这个时候 ，库存B居然有库存增加了……
附件是开发版的，因为做一个普通版的例子太麻烦了，抱歉
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:jxc.rar |
-- 发布时间：2012/9/10 10:51:00
--
商品入库点击修改的时候出错了（是不是删除了新增出库的窗口了？）。
你不要直接点表窗口 点左侧窗口栏上的商品出库，是“修改入库”
-- 发布时间：2012/9/10 11:05:00
--
是点“修改入库”
把取消的代码设置成这样：
Dim r As DataRow = Tables("商品入库").Current.DataRow
r("入库数量") = r.OriginalValue("入库数量")
Tables("商品入库").Current.Reject()
\'DataTables("商品入库").DataCols("入库量").RaiseDataColChanged()
e.Form.Close()
还有，需要把窗口设置为“独立”，不要设置为“模式”窗口。
问题依旧……
-- 发布时间：2012/9/10 12:33:00
--
Dim r As DataRow = Tables("商品入库").Current.DataRow
r("入库数量") = r.OriginalValue("入库数量")
Tables("商品入库").Current.Reject()
\'DataTables("商品入库").DataCols("入库量").RaiseDataColChanged()
DataTables("商品入库").DataCols("入库数量").RaiseDataColChanged()
e.Form.Close()
DataTables("商品库存").Load()
这样可以了，测试过了。
good~~ 希望在新版本中能直接更新啊
顺便替我看下 窗口中的两颗tree 能否代码合并啊 ，我搞不来了 才分两颗tree的
-- 发布时间：2012/9/10 15:29:00
--
不能触发的问题，撤销修改按钮，这样改就行：
Dim r As Row = Tables("商品入库").Current
r("商品名称")= r.DataRow.OriginalValue("商品名称")
r.Reject
e.Form.Close
-- 发布时间：2012/9/10 16:30:00
--
可以的，但是我不知道你的tree是放在哪里的。
窗口管理里面啊~~