主题：跨表计算

情况不一样，跨表计算是个大难题

使用了项目不存在的表名和表没有的字段名

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

点击浏览该文件:预算练习.foxdb

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.10.26.1
错误所在事件：表，销售预算，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.ArgumentException: 列“客户编号”不属于表 销售预算。
   在 System.Data.DataRow.GetDataColumn(String columnName)
   在 System.Data.DataRow.IsNull(String columnName)
   在 Foxtable.DataRow.get_IsNull(String ColumnName)
   在 UserCode.DataColChanged(DataColEventArgs e)
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes

你做了这个还是报错呀

是否是2016版的原因呀，用2014时还没有这么多问题

以下的红色代码想实现，物料编号发生变化时，生产计划物料需求表强制更新，怎么不管用呀

Select Case e.DataCol.name
    Case "物料编号"
        DataTables("生产计划物料需求").DataCols("物料编号").RaiseDataColChanged()
        Dim drs As List (of DataRow) = DataTables("物料清单").Select("产品编号 = '" & e.DataRow("物料编号") & "'")
        If drs IsNot Nothing Then
            For Each dr As DataRow In drs
                Dim fiter As String ="物料编号 ='" & dr("物料编号") & "' And 产品编号 = '" & dr("产品编号") & "' and 销售预算单号 = '" & e.DataRow("预算单号") & "'"
                Dim dr1 As DataRow =DataTables("生产计划物料需求").find (fiter)
                If dr1 IsNot Nothing Then
                    DataTables("生产计划物料需求").DataCols("物料编号").RaiseDataColChanged()
                Else
                    dr1 = DataTables("生产计划物料需求").AddNew()
                    dr1("产品编号") = e.DataRow("物料编号")
                    dr1("物料编号") = Dr("物料编号")
                    dr1("发生日期") = e.DataRow("发生日期")
                    dr1("销售预算单号") = e.DataRow("预算单号")
                End If
                'Case "产品名称","产品规格"
                'Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
                'If dr IsNot Nothing Then
                'dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
                'End If
            Next
        End If
End Select

提示很明显啊 搜索 客户编号，改成对应的列啊。