以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据类型  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78229)
--  作者：zoyong
--  发布时间：2015/12/4 15:51:00
--  数据类型
Dim Filter As String = ""
If e.node.Name <> "显示所有项目" Then \'要用Name属性,不能用Text属性
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Product As String = e.Node.DataRow("资质")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) \'取得该年的第一天
            d2 = new Date(Year,12,31) \'取得该年的最后一天
            Filter = "中标日期 >= #" & d1 & "# And 中标日期 <= #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "中标日期 >= #" & d1 & "# And 中标日期 <= #" & d2 & "#"
        Case 2
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "中标日期 >= #" & d1 & "# And 中标日期 <= #" & d2 & "# And 资质 = \'" & Product & "\'"
    End Select
End If




 详细错误信息：
表达式包含无效的日期常量“#0003/1/1”。


详细错误信息：
从字符串“市政”到类型“Integer”的转换无效。
输入字符串的格式不正确。 
--  作者：大红袍
--  发布时间：2015/12/4 16:00:00
--  

代码没什么问题，你数据有问题。

 

你的年、月列，不要有特殊字符，不然肯定会报错。