一、问题描述

      在VBA代码中用了ADO，其他代码都是正确的，偏偏下面的代码：

      rst!单价 = rst2!价格

      rst.Update

      硬是无法保存数据，也不提示出错。

二、解决方案

      经过检查，最后发现是rst表中的 “单价” 字段属性设置为了 “小数”，而 rst2表中的 “价格” 字段属性设置是 “货币”

      经过实测，把rst表中的 “单价” 字段属性 改为“货币”，就可以解决了。