主题：产品与模具的关系

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

点击浏览该文件:产品与模具的关系.xls

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

点击浏览该文件:byear.zip

不要意思，我的foxtable版本低了，打不开你给的档案。可否请你将代码发给我即可？谢谢。

物料字典_DataColChanged

 

Select Case e.DataCol.Name
    Case "模具型号","物料编号"
        Dim dr As DataRow = DataTables("模具清单").Find("模具型号='" & e.DataRow("模具型号") & "'")
        If dr Is Nothing Then
            dr = DataTables("模具清单").AddNew
            dr("模具型号") = e.DataRow("模具型号")
        End If
        dr("所应用的产品") = e.DataTable.GetComboListString("物料编号","模具型号='" & e.DataRow("模具型号") & "'").Replace("|",",")
        If e.DataCol.Name = "模具型号" AndAlso e.OldValue > "" Then
            dr = DataTables("模具清单").Find("模具型号='" & e.OldValue  & "'")
            If dr IsNot Nothing Then
                dr("所应用的产品") = e.DataTable.GetComboListString("物料编号","模具型号='" & e.OldValue & "'").Replace("|",",")
            End If
           
        End If
End Select

 

物料字典_DataRowDeleting

 

Dim dr As DataRow = DataTables("模具清单").Find("模具型号='" & e.DataRow("模具型号") & "'")
If dr IsNot Nothing Then
    dr("所应用的产品") = e.DataTable.GetComboListString("物料编号","模具型号='" & e.DataRow("模具型号") & "' and [_Identify] <>" & e.DataRow("_Identify")).Replace("|",",")
End If

Select Case e.DataCol.Name

    Case "模具型号"

        If e.DataRow("模具型号") <> "不适用"

            Dim dr As DataRow = DataTables("模具清单").Find("模具型号='" & e.DataRow("模具型号") & "'")

            dr("所应用的产品") = e.DataTable.GetComboListString("物料编号","模具型号='" & e.DataRow("模具型号") & "'").Replace("|",",")

        End If

End Select

If e.DataCol.Name = "模具型号" AndAlso e.OldValue > "" AndAlso e.newvalue <> "不适用" Then

    Dim dr As DataRow = DataTables("模具清单").Find("模具型号='" & e.DataRow("模具型号") & "'")

    dr = DataTables("模具清单").Find("模具型号='" & e.OldValue  & "'")

    If dr IsNot Nothing Then

        dr("所应用的产品") = e.DataTable.GetComboListString("物料编号","模具型号='" & e.OldValue & "'").Replace("|",",")

    End If

End If

我将你的代码更改上面那样。我在“物料字典”里面增加和删除数据行时，能够正常运行，满足我们的要求。但是当我在“物料字典”里面执行“模具型号”的“重置列”时，会出现如下警告：

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2017.3.18.1

错误所在事件：表，物料字典， DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

为什么呢？

没看懂你需要做什么效果，先试试

 

Select Case e.DataCol.Name
    Case "模具型号"
        If e.DataRow("模具型号") <> "不适用"
            Dim drs = DataTables("模具清单").Select("模具型号='" & e.DataRow("模具型号") & "'")
            Dim str = e.DataTable.GetComboListString("物料编号","模具型号='" & e.DataRow("模具型号") & "'").Replace("|",",")
            For Each dr As DataRow In drs
                dr("所应用的产品") = str
            Next
        End If       
End Select

If e.DataCol.Name = "模具型号" AndAlso e.OldValue > "" AndAlso e.newvalue <> "不适用" Then
   
    Dim drs1 = DataTables("模具清单").Select("模具型号='" & e.DataRow("模具型号") & "'")
   
    Dim drs2 = DataTables("模具清单").Select("模具型号='" & e.OldValue  & "'")
    Dim str1 = e.DataTable.GetComboListString("物料编号","模具型号='" & e.DataRow("模具型号") & "'").Replace("|",",")
    Dim str2 = e.DataTable.GetComboListString("物料编号","模具型号='" & e.OldValue & "'").Replace("|",",")
   
    For Each dr As DataRow In drs1
        dr("所应用的产品") = str1
    Next
    For Each dr As DataRow In drs2
        dr("所应用的产品") = str2
    Next   
End If