以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计前三个月的出库数量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194288)
--  作者：qinlao666
--  发布时间：2024/11/25 13:10:00
--  统计前三个月的出库数量
Dim y As Integer = Date.Today.year
Dim d As Integer = Date.Today.month
Dim dt1 As New Date(y, d)
Dim d1 As Date = dt1.AddMonths(-3) \'减去3个月
If e.DataCol.Name = "物料编码" Then\'
    e.DataRow("下限") = DataTables("出库单").Compute("Sum(出库数量)", "[编码] =  \'" & e.DataRow("编码") & " And 出库日期 >= #" & d1 & "#\'")
End If
我要统计同一个物料近3个月的出库数

麻烦老师修改一下错误
详细错误信息：
调用的目标发生了异常。
无效的 DateTimeKind 值。
参数名: kind
--  作者：有点蓝
--  发布时间：2024/11/25 13:23:00
--  
If e.DataCol.Name = "物料编码" Then\'
Dim d1 As Date = Date.Today.AddMonths(-3) \'减去3个月
    e.DataRow("下限") = DataTables("出库单").Compute("Sum(出库数量)", "[编码] =  \'" & e.DataRow("编码") & " And 出库日期 >= #" & d1 & "#\'")
End If
--  作者：qinlao666
--  发布时间：2024/11/25 15:52:00
--  
老师，点击重置列，命令没有任何反应
--  作者：qinlao666
--  发布时间：2024/11/25 15:54:00
--  
也没有错误提示
--  作者：有点蓝
--  发布时间：2024/11/25 16:00:00
--  
If e.DataCol.Name = "编码" orelse e.DataCol.Name = "出库日期" Then\'
Dim d1 As Date = Date.Today.AddMonths(-3) \'减去3个月
    e.DataRow("下限") = DataTables("出库单").Compute("Sum(出库数量)", "[编码] =  \'" & e.DataRow("编码") & " And 出库日期 >= #" & d1 & "#\'")
End If
--  作者：qinlao666
--  发布时间：2024/11/25 16:31:00
--  
还有一样，没有任何反应。命令是写在《库存表》的DataColChanged中，出库日期是在《出库单》表中的
--  作者：有点蓝
--  发布时间：2024/11/25 16:39:00
--  
选中编码这个列再重置，另外确定列名没有错？

If e.DataCol.Name = "编码" Then\'
Dim d1 As Date = Date.Today.AddMonths(-3) \'减去3个月
    e.DataRow("下限") = DataTables("出库单").Compute("Sum(出库数量)", "[编码] =  \'" & e.DataRow("编码") & " And 出库日期 >= #" & d1 & "#\'")
End If
--  作者：qinlao666
--  发布时间：2024/11/25 16:43:00
--  
以下是引用有点蓝在2024/11/25 16:39:00的发言：
选中编码这个列再重置，另外确定列名没有错？

我的操作没问题。选中编码列重置的。列名也没有错。
--  作者：有点蓝
--  发布时间：2024/11/25 16:43:00
--  
请上传实例说明