主题：产品与模具的关系

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

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

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

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

详细错误信息：

调用的目标发生了异常。

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

为什么呢？