主题：定义日期无法引用

我定义了本月初和上月初，但无法在筛选是引用，请高手指教：-
 
Dim d1 As Date
Dim d2 As Date
d1 = today.adddays(-day(Today)) '定义本月初
d2 = today.adddays(-day(Today)).adddays(-day(today.adddays(-day(Today)))) '定义上月初

If e.DataCol.name ="原料代码" Then     '则累计原辅料入库表中同代码原辅料总的入库量,然后赋值给变动行的数量列
  e.DataRow("当月入库kg") = DataTables("原辅料入库").Compute("Sum(实收数量)","[原料代码] = '" & e.NewValue & "'And [日期] >= d2 And [日期] <= d1")
End if

 还是不行哦。

什么文件？刚刚开始学习编程，发现日期定义不知道怎么用。

 看过几次了， 没有答案。

就是有一个《入库表》，存有历来的入库记录

想建一个统计表，在 e.DataCol.Changed事件，按【材料代码】自动统计《入库表》当月和上个月的入库数量。

上面代码直接用#2011/10/31#日期时，可以完成，但想通过定义d1 和d2, 自动跳转的当月，而不用每月更改代码。上面定义在output.show(d1) 是显示正确，但不能在代码中引用。

 成功了！谢谢狐狸爸爸！

关键是 日期定义必须放在IF语句里边。换了我上面的日期定义，也能运算了。真是感谢！