- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 双击选择多行数据录入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146066)
-- 发布时间：2020/2/15 15:30:00
-- 双击选择多行数据录入
此主题相关图片如下：qq图片20200215151139.png
老师您好，目前是新增一行商品明细，然后双击弹出来的商品窗口，选择对应商品，新增第二行商品就需要重新点击新增行按钮，希望直接在弹出来的商品窗口，双击选择多个商品，自动新增行录入多行商品明细，代码应该怎样修改了
这个是写入的弹出来的商品窗口表的doubleclick事件代码：
Dim tbl As Table = Tables("窗口3_Table1")
If tbl.Current IsNot Nothing Then
Tables("出库单_Table1").Current("商品编号") = tbl.Current("商品编号")
End If
Forms("窗口3").Close()
-- 发布时间：2020/2/15 15:34:00
--
这样建议在后面的窗口里使用窗口按钮打开弹出来的商品窗口，而不是在单元格按钮里打开
然后
弹出来的商品窗口表的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()这一句去掉，在弹出来的商品窗口添加一个关闭按钮，或者点击窗口的关闭按钮来关闭窗口