主题：[求助]谁能给分析下，代码问题在哪？

还有问题……新的错误提示：

 .NET Framework 版本：2.0.50727.5420
Foxtable 版本：2015.11.11.1
错误所在事件：表，提料主表，DataColChanged
详细错误信息：
调用的目标发生了异常。
表达式包含无效的日期常量“##”。

*********************************************************

谁给分析下 提料主表 和 进料主表 的 表属性 的 datacolchanged 的代码究竟有什么问题。

 

这是提料主表的：

        Case "提料日期"
            drs = DataTables("提料明细表").Select("提料日期 =#" & e.OldValue & "#")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("提料日期") = e.DataRow("提料日期")
                Next
            End If           

 

这是进料主表的：

        Case "进场日期"
            drs = DataTables("进料明细表").Select("进场日期 = '" & e.OldValue & "'")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("进场日期") = e.DataRow("进场日期")
                Next
            End If

我也是醉了，提料主表的 Case "[提料日期]" 不加方括号 运行提示错误，错误如下：

 

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2015.11.11.1
错误所在事件：表，提料主表，DataColChanged
详细错误信息：
调用的目标发生了异常。
无法在 System.DateTime 和 System.String 上执行“=”操作。

然后进料主表的Case "提料日期" 加了方括号后执行不出应有的结果来。也不提示错误。没有方括号才能正常运行……

 

求分析，求指点…… 

 

醉了……之前能根据主表修改子表时间的，现在修改不了了，啥情况……
 

 

 

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

点击浏览该文件:水电材料管理.rar

这是提料主表的：

        Case "提料日期"
            drs = DataTables("提料明细表").Select("提料日期 = #" & e.OldValue & "#")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("提料日期") = e.DataRow("提料日期")
                Next
            End If           

 

这是进料主表的：

        Case "进场日期"
            drs = DataTables("进料明细表").Select("进场日期 = #" & e.OldValue & "#")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("进场日期") = e.DataRow("进场日期")
                Next
            End If

额  刚说问题解决了  然后这一会儿后又出问题了 错误提示：

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2015.11.11.1
错误所在事件：表，提料主表，DataColChanged
详细错误信息：
调用的目标发生了异常。
表达式包含无效的日期常量“##”。

Case "进场日期"

    If e.OldValue <> Nothing Then
        drs = DataTables("进料明细表").Select("进场日期 = #" & e.OldValue & "#")

    End If

大红袍 

我有个非常诡异的情况 就是 同一个代码 狐表运行的时候 有时候报错，有时候有没问题了，

就像你给加了个判断旧值存不存在那句 我也加了下试试，但是我两个表，一个提料主表，一个进料主表，功能上都是差不多的，但是这个错误，只有提料主表运行时报错，而进料主表一直不报错。甚至我给提料主表加了判断，进料主表没有，昨天一直没问题，今天上午也没问题，但是刚才，他居然报错了……这是什么情况？

 

还有判断旧值是否存在，为什么只有日期会报错，其他的不报错， Case "进货渠道"
            drs = DataTables("进料明细表").Select("进货渠道 = '" & e.OldValue & "'")
            If drs IsNot Nothing Then
                For Each dr As DataRow In drs
                    dr("进货渠道") = e.DataRow("进货渠道")
                    dr("供应商") = e.DataRow("供应商")
                Next
            End If
按说这个不也应该报错的么。

可能是旧值不存在吧 ，不过为什么单单他报错，别的不报错

你加了判断了吗？代码怎么写？报什么错？

判断的代码是 if e.oldvalue isnot nothing then

…………

endif

和你的意思差不多，昨天下午最后的时候，我发现错误提示是第一次新增单元格的时候，单元格增加了在操作就没事了，所以猜测是不是没有旧值的问题，所以加了一句判断，但是我用的select语句啊，只有日期这一列触发时出错。最让我纠结的是，两个表，提料主表和进料主表，提料表添加判断之前一直报错，但是进料表之前未添加判断，但是就不不报错，这个情况我专门试了好几次，昨天就是不报错，今天上午打开的时候也还是不报错，但是今天下午，进料表开始报错了，报错内容和之前提料表一样……这种时灵时不灵的情情况到底咋回事……还是说过期了，故意的？我装了也不久啊。

if e.oldvalue <> nothing then

 

如果还出错，上传具体例子。