以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  明细表中一次填充多个值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22935)

--  作者: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
图片点击可在新窗口打开查看

 

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

请问代码要怎么写?


--  作者:czy
--  发布时间:2012/8/27 23:00:00
--  
为何不退出时自动删除空行?
--  作者:zpx_2012
--  发布时间:2012/8/27 23:34:00
--  
谢谢CZY版主,我试试看!