With DataTables("成品日计划")
    .LoadFilter = "日期 >= #2015/1/1# And 日期 <= #2015/12/31#"
    .LoadPage = 0 \'加载第一页
    .LoadTop = 20 \'每页20行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

奇怪了 这段 代码 总过不了，系统提示 #附近有语法错误

Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = CInt(e.Node.DataRow("年"))
    Dim Month As Integer =CInt(e.Node.DataRow("月"))
    Dim d3 As Date = CDate(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
            Filter = "计划日期 = #\'" & d3 & "\'#"
    End Select
End If
MessageBox.show(Filter)
With DataTables("成品日计划")
    .LoadFilter = Filter \'设置加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 20 \'每页20行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

晕了

这个卡了一个多小时了

此主题相关图片如下：123.png

这里多了个# 又误导了我