双击选择多行数据录入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样建议在后面的窗口里使用窗口按钮打开弹出来的商品窗口，而不是在单元格按钮里打开

然后

弹出来的商品窗口表的doubleclick事件代码：

Dim tbl As Table = Tables("窗口3_Table1")

If tbl.Current IsNot Nothing Then

dim r as row = Tables("出库单_Table1").addnew

r("商品编号") = tbl.Current("商品编号")

End If

‘’Forms("窗口3").Close()这一句去掉，在弹出来的商品窗口添加一个关闭按钮，或者点击窗口的关闭按钮来关闭窗口

主题：双击选择多行数据录入