Q:这种下拉窗口可以支持多选回写吗，点订单父表有个窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Q:这种下拉窗口可以支持多选回写吗，点订单父表有个窗口

共有10716人关注过本帖树形打印复制链接主题：Q:这种下拉窗口可以支持多选回写吗，点订单父表有个窗口

hp001

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

加好友

发短信

等级：童狐帖子：242 积分：1775 威望：0 精华：0 注册：2012/5/9 16:10:00

Q:这种下拉窗口可以支持多选回写吗，点订单父表有个窗口 发帖心情

Post By：2012/6/6 19:23:00 [只看该作者]

Q:这种下拉窗口可以支持多选回写吗,我做了个案例，还没实现选择多行，回填到订单子表内。那位老大来帮忙下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2012-6-7 6:54:28编辑过]

hp001

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

加好友

发短信

等级：童狐帖子：242 积分：1775 威望：0 精华：0 注册：2012/5/9 16:10:00

Post By：2012/6/6 22:03:00 [只看该作者]

和那个多选树填写有点类似，

hp001

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

加好友

发短信

等级：童狐帖子：242 积分：1775 威望：0 精华：0 注册：2012/5/9 16:10:00

Post By：2012/6/7 6:53:00 [只看该作者]

再顶顶，急用

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/6/7 8:27:00 [只看该作者]

做个按钮:

Dim rs As List(of Row) = Tables(e.form.Name & "_Table1").GetCheckedRows()
For Each r As Row In rs
    With Tables(e.form.Name & "_Table1")
        For i As Integer = .BottomRow To .TopRow Step -1
            Dim r1 As Row = .Rows(i)
            Dim r2 As Row = Tables("订单父表.订单子表").AddNew
            For Each c As Col In .Cols
                r2(c.name) = r1(c.name)
            Next
        Next
    End With
Next
Tables("订单父表.订单子表").DataTable.Save
Tables("订单父表.订单子表").DataTable.DeleteFor("产品编号 Is Null")

代码如下.

[此贴子已经被作者于2012-6-7 8:27:24编辑过]