-- 作者:zpx_2012
-- 发布时间:2012/8/27 21:18:00
-- 明细表中一次填充多个值
各位老师,
我在明细表的产品编码列出设计了一个产品选择的弹出窗口,多选后将选定的值自动填入相应的列。我用了如下的代码:
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
但选中的数据是从明细表的最后一行新增,我想实现如果原来明细表有空行,就从第一个空行的地方填充值就行,空行不够时才新增行。
请问代码要怎么写?
|