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

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

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

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

多对多取值

Post By：2019/2/13 17:48:00 [只看该作者]

订单明细与发货明细表是多对多关系，没有关联。想在发货明细表中逐行输入订单号，根据订单号从订单明细表中逐行取值（型号，规格，订单数量）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多对多取值.foxdb

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2019/2/13 18:21:00 [只看该作者]

我想在发货明细表中用DataColChanged表事件处理，类似下面的代码

If e.DataCol.Name ="订单号" Then

Dim drs As List(Of DataRow) = DataTables("订单明细").Select("订单号 = " & "'" & e.DataRow("订单号") & "'" )

For Each dr As DataRow In drs

If dr IsNot Nothing

e.DataRow("型号")= dr("型号")

e.DataRow("规格")= dr("规格")

e.DataRow("订单数量")= dr("订单数量")

End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2019/2/14 9:03:00 [只看该作者]

因为是在关联表中操作，有关联字段发货单号，新增行中能带入主表的发货单号吗?

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("某列")

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2019/2/15 12:54:00 [只看该作者]

我想通过窗口的列表框选择订单单号，然后导入订单明细的数据，4楼的代码如何修改？

此主题相关图片如下：snap2.jpg

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2019/2/15 14:38:00 [只看该作者]

谢了

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

主题：多对多取值