主题：求一段代码

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

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

请帮忙，非常感谢。

请上例子.

 这个东西？

 

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

选其中某些产品编号的时候还会显示相同的错误信息