不能触发的问题，撤销修改按钮，这样改就行：
Dim r As Row = Tables("商品入库").Currentr("商品名称")= r.DataRow.OriginalValue("商品名称")r.Reject
e.Form.Close
加好友 
发短信
Post By：2012/9/10 15:29:00 [显示全部帖子]
