主题：[求助]

出现问题的列是“内部合同”的“数量_根”和“合同交付日期”的数据调入到“拉动排产计划_浸漆”的“交付数量_根”和“交付日期”中，在正常运行时，提示错误信息，关掉该信息，所有数据调用都正常实现。但把项目关掉重新打开，“拉动排产计划_浸漆”的“交付数量_根”中调入的数据和“交付日期”中调入的数据全部消失，此时删除行重新增加行，提示错误信息，关掉该信息，所有数据调用又都正常实现。

是不是两个表的列名称不完全一样就会出现这个问题？我将列名称修改完全一致后测试，结果没有变化，不是这个列名称的问题

1、2楼代码不可能报错啊；

 

2、看不懂你想表达什么。

问题列的数据没有了，是不是是表达式列  http://www.foxtable.com/help/topics/1380.htm

没有表达式列，全部是数据列

执行2楼的代码，报什么错？

 

做foxtable例子上传上来。

感谢大红袍，问题列的确是表达式列，看到您发的数据无法保存的内容，查找表结构发现虽然大部分的列都改为数据列了，还是漏掉了2列，修改后，数据保存住了。但错误提示还有，现在不影响运行，不知道哪里还有错，等到找到问题的时候再说吧。谢谢！！！

错误信息如下：

此主题相关图片如下：11115.bmp

贴出 拉动排产计划_浸漆 datacolchanged事件的全部代码

拉动排产计划_浸漆 datacolchanged事件的全部代码

 

Select Case e.DataCol.Name
    Case "本工序投产日期","完成生产日期"
        If e.DataRow.IsNull("本工序投产日期") OrElse e.DataRow.IsNull("完成生产日期") Then
            e.DataRow("安排生产天数_天")=Nothing
        Else
            Dim tp As TimeSpan = e.DataRow("完成生产日期") - e.DataRow("本工序投产日期")
            e.DataRow("安排生产天数_天")=tp.TotalDays+1
        End If
       
    Case "序号"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow = DataTables("内部合同").Find("序号 = '" & dr("序号") & "'")
        If pr IsNot Nothing Then
            dr("合同编号") = pr("合同编号")
            dr("品种_杆径") = pr("品种_杆径")
            dr("品种_材质") = pr("品种_材质")
            dr("品种_长度") = pr("品种_长度")
            dr("品种_级别") = pr("品种_级别")
            dr("品种_接箍") = pr("品种_接箍")
            dr("品种_特殊要求") = pr("品种_特殊要求")
            dr("品种_ID") = pr("品种_ID")
            dr("贸易性质_内贸") = pr("贸易性质_内贸")
            dr("贸易性质_外贸") = pr("贸易性质_外贸")
            dr("交付数量_根")= pr("交付数量_根")
            dr("交付日期")= pr("交付日期")
        End If
       
    Case "品种_杆径","品种_长度"
        Dim dc As DataRow = e.DataRow
        Dim pc As DataRow
        Dim filter1 As String
        filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "'"
        pc = DataTables("工序能力表").Find(filter1)
        dc("日生产能力_浸漆") = pc("日生产能力_浸漆")
End Select

   
    Case "品种_杆径","品种_长度"
        Dim dc As DataRow = e.DataRow
        Dim pc As DataRow
        Dim filter1 As String
        filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "'"
        pc = DataTables("工序能力表").Find(filter1)

        If pc IsNot Nothing Then
            dc("日生产能力_浸漆") = pc("日生产能力_浸漆")

        End If
End