我有一“订单”主表关联一“订单明细表”，订单主表里面的“产品编号”列采用单元格边上的按钮按下弹出一个“添加订单_产品中心”的窗口表选择，求一个产品编号显示出来后，“订单明细表”对应显示出该产品的所有物料明细。

物料明细就是“产品中心”主表下关联的“产品子件”里的东西

请帮忙，非常感谢。

 这个东西？

http://www.foxtable.com/help/topics/1534.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:滑板车管理系统(网络版).table

求订单中产品编号选择后，自动产生物料清单
窗口按钮在菜单栏里的生产管理下的生产订单

订单表 Datacolchanged事件，代码

If e.DataCol.Name = "产品编号" Then
    DataTables("定单明细").DeleteFor("定单号 = \'" & e.DataRow("定单号") & "\'")
    For Each dr As DataRow In DataTables("产品子件").Select("产品编号 = \'" & e.NewValue & "\'")
        Dim nr As Row = Tables("订单.定单明细").Addnew
        nr("物料编号") = dr("物料编号")
        nr("物料名称") = dr("物料名称")
        nr("规格型号") = dr("规格型号")
    Next
End If

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
A child row has multiple parents.

代码复制进去后操作总是显示这个是怎么回事啊

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：表，订单，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Conversion from string "1/8" to type \'Single\' is not valid.
Input string was not in a correct format.

删除关联后操作会显示这样的东西

If e.DataCol.Name = "产品编号" Then
    DataTables("定单明细").DeleteFor("定单号 = \'" & e.DataRow("定单号").Replace("\'", "\'\'") & "\'")
    For Each dr As DataRow In DataTables("产品子件").Select("产品编号 = \'" & e.NewValue.Replace("\'", "\'\'") & "\'")
        Dim nr As Row = Tables("订单.定单明细").Addnew
        nr("物料编号") = dr("物料编号")
        nr("物料名称") = dr("物料名称")
        nr("规格型号") = dr("规格型号")
    Next
End If