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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击选择多行数据录入

共有3993人关注过本帖树形打印复制链接主题：双击选择多行数据录入

冷泉

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：393 积分：3181 威望：0 精华：0 注册：2019/4/13 16:10:00

双击选择多行数据录入 发帖心情

Post By：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()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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()这一句去掉，在弹出来的商品窗口添加一个关闭按钮，或者点击窗口的关闭按钮来关闭窗口

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