主题：求一段代码

 这个东西？

 

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

 

订单表 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

 你的订单明细表，不能做别的表的父表。关联那里设置正确来。

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

 这些产品编号可能有特殊的符号，要处理下，贴出这些编号看看。

 呃，不可能出现问题，测试没有报错啊

Dim Vals As List(of String())
Vals = DataTables("定单明细").GetValues("定单号|物料编号")
For i As Integer = 0 To Vals.Count - 1
    Dim fdr As DataRow = DataTables("采购计划").Find("定单号 = '" & Vals(i)(0) & "' and 物料编号 = '" & Vals(i)(1) & "'")
    If fdr Is Nothing Then
        fdr = DataTables("采购计划").AddNew()
        fdr("定单号") = Vals(i)(0)
        fdr("物料编号") = Vals(i)(1)
    End If
Next

For Each dr As DataRow In DataTables("定单明细").Select("")
    Dim fdr As DataRow = DataTables("采购计划").Find("定单号 = '" & dr("定单号") & "' and 物料编号 = '" & dr("物料编号")  & "'")
    If fdr Is Nothing Then
        fdr = DataTables("采购计划").AddNew()
        fdr("定单号") = dr("定单号")
        fdr("物料编号") = dr("物料编号")
    End If
    fdr("物料名称") = dr("物料名称")
    fdr("规格型号") = dr("规格型号")
Next