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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多对多取值

共有2987人关注过本帖树形打印复制链接主题：多对多取值

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/13 18:00:00 [显示全部帖子]

直接用select查找数据过来，不就行了？

http://www.foxtable.com/webhelp/scr/0400.htm

[此贴子已经被作者于2019/2/13 18:00:22编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/13 22:50:00 [显示全部帖子]

比如

If e.DataCol.Name ="订单号" Then
    Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "'" & e.DataRow("订单号") & "'" )
    For Each dr As DataRow In drs
        Dim ndr As DataRow = e.DataTable.addnew
        ndr("型号")= dr("型号")
        ndr("规格")= dr("规格")
        ndr("订单数量")= dr("订单数量")
    Next
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/14 9:10:00 [显示全部帖子]

以下是引用实话实说在2019/2/14 9:03:00的发言：
因为是在关联表中操作，有关联字段发货单号，新增行中能带入主表的发货单号吗?

datarowadded事件

e.datarow("某列") = Tables("某表").current("某列")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/15 13:05:00 [显示全部帖子]

Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "'" & e.form.controls("combobox").text & "'" )
For Each dr As DataRow In drs
    Dim ndr As DataRow = DataTables("表A").addnew
    ndr("型号")= dr("型号")
    ndr("规格")= dr("规格")
    ndr("订单数量")= dr("订单数量")
Next

下一主题 >> << 上一主题

主题：多对多取值