主题：求助按日加载

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

点击浏览该文件:按年月日筛选.table

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "SELECT DISTINCT Year(dhrq) As 年, Month(dhrq) As 月, day(dhrq) As 日 From {cghd}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt, "年|月|日")

 

 

Dim Value() As String

Dim Filter As String

Dim d1 As Date

Dim d2 As Date

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

    Case 0

        Dim y As Integer = value(0)

        d1 = New Date(y,1,1) 

        d2 = new Date(y,12,31) 

        Filter = "dhrq >= #" & d1 & "# And dhrq <= #" & d2 & "#"

    Case 1

        Dim y As Integer = value(0)

        Dim m As Integer = value(1)

        d1 = New Date(y, m, 1) 

        d2 = new Date(y, m, Date.DaysInMonth(y,m)) 

        Filter = "dhrq >= #" & d1 & "# And dhrq <= #" & d2 & "#"

    Case 2

        Dim y As Integer = value(0)

        Dim m As Integer = value(1)

        Dim d As Integer = value(2)

        d1 = New Date(y, m, d) 

        Filter = "dhrq = #" & d1 & "# "

    End Select

Tables("cghd").Filter = Filter

还是把例子上来，谁知你的表是咋回事。

早说啊，Sql数据库是用单引号，内部表和Access是用#

狐爸已经告诉你啦，默认是用内部表，不用指明数据源，你用外部表，而且还是SQL数据库，不是Access数据库，首先要指明数据源，然后用单引号把日期括起来，不是#了。

你原样照抄，不出错才是错。

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