主题：下列代码不能正确执行

发现一个错误：

        Dim Filter1 As String = "日期 = '" & e.DataRow("日期") & "'"

应该：

        Dim Filter1 As String = "日期 = #" & e.DataRow("日期") & "#"

建议看看：

http://www.foxtable.com/help/topics/1284.htm