产品表里设置产品编号列=产品编号表达式列， 代码如下：

产品编号表达式的表达式= [产品图号]+\'-\'+[分项序号]

产品表的DataRowAdded事件代码：

For Each r As Row In Tables("产品表").Rows
    r("产品编号") = r("产品编号表达式")
Next

问题：

1. 产品图号或分项序号更改后， 产品编号不能及时刷新， 需要增加一行才能刷新。

2. 只能一行一行的添加， 添加多行产品编号不自动出现， 多次添加多行后再增加一行才能出现？

需要：

1. 产品图号或分项序号更改后， 产品编号能及时刷新！

2. 添加多行后， 产品编号能自动出现！

看不懂你的这个问题，最好做个小例子发上来