主题：明细表中一次填充多个值

各位老师，

我在明细表的产品编码列出设计了一个产品选择的弹出窗口，多选后将选定的值自动填入相应的列。我用了如下的代码：

Dim dr2 As Row
For Each dr As Row In Tables(e.form.Name & "_table1").Rows
    If dr("选择") = True
        dr2 = Tables("生产单.生产明细").AddNew
        dr2("产品编码") = dr("产品编码")
        dr2("名称") = dr("名称")
        dr2("规格") = dr("规格")
    End If
Next

此主题相关图片如下：qq截图20120827211221.jpg

但选中的数据是从明细表的最后一行新增，我想实现如果原来明细表有空行，就从第一个空行的地方填充值就行，空行不够时才新增行。

请问代码要怎么写？