VB用MSHFlexgrid更新Access数据库

[luffy9202]

Access数据库中有一个“产品资料”表，其中有字段“产品编码”，“库存”，当进货的时候用MSHFlexgrid输入产品信息，然后更新“产品资料”里的库存。代码如下。
conn.Execute "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'"
运行时提示有错，是val(产品资料.库存)+val(MS1.TextMatrix(j,4))这句有错，不知道怎么改。。。

请大家帮忙看看是哪里的问题啊。谢啦~

[luffy9202]

没有人回答我！！！快来个大神吧！！！

[luffy9202]

引用 3 楼 luffy9202 的回复:

[quote=引用 2 楼 lfshf 的回复:] Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看？估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1

谢谢二楼回复 找到问题了，是set后边这句，改成set 库存 = 产品资料.库存+" & MS1.TextMatrix(j, 4) & " 就好了。。。可这样明明是文本格式啊。。。我也不知道咋回事。。。[/quote] 啊啊啊啊 这样的话如果库存为空又不行了！！！快来人呀！

[qq_32853953]

下载资料还要积分，怎么得积分啊？

[luffy9202]

引用 2 楼 lfshf 的回复:

Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看？估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1

谢谢二楼回复 找到问题了，是set后边这句，改成set 库存 = 产品资料.库存+" & MS1.TextMatrix(j, 4) & " 就好了。。。可这样明明是文本格式啊。。。我也不知道咋回事。。。

[lfshf]

Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看？估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1

[luffy9202]

回楼上 我也不造啊 结贴了哈 不能回了