主题：[求助]窗口表不能实现查询功能

1、问题的时候，你要贴出代码，别人才能帮助到你，上面的错误已经告诉您是button1的click事件有误，应该贴出这个事件的代码。

Forms("缴费户卡").Open

Dim dr1 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411", 0)

Dim dr2 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411 Desc",0)

Dim d1 As Date

Dim d2 As Date

Dim drl0 As DataRow

Dim dt1 As Date =dr1("F4411")

Dim dt2 As Date =dr2("F4411")

Dim val1 As New List (of String)

val1= DataTables("T246").GetValues("F4386")

Dim d As Integer = dt2.Year -dt1.Year

Dim j As Integer = 0

Dim drl As New List (of DataRow)

Dim filter As String =""

For i As Integer = 0 To d

    d1 = New Date(dt1.Year+i-1,11,15) '取得该年的第一天

    d2 = new Date(dt1.Year+i,11,15) '取得该年的最后一天

    For Each val As String In val1

        drl0 = DataTables("T246").Find("[F4411] >= #" & d1 & "# And [F4411] <= #" & d2 & "# And [F4386] ='" & val & "'","F4411 Desc",0)

        If drl0 IsNot Nothing Then

            drl.add(drl0)

            j= j+1

        End If

    Next

Next

For k As Integer = 0 To j-1

    If Filter > ""  Then

        Filter = Filter & " or "

    End If

    filter = filter & "[T246Id] = '" &  drl(k)("T246Id")  &  "'"

Next

Dim filter1 As String = ""

With e.Form.Controls("comboBox1")

    If .Value IsNot Nothing Then

        filter1 = "[F5319] Like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        If filter1 > "" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4362] Like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("TextBox2")

    If .Value IsNot Nothing Then

        If filter1 >"" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4387]  Like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("TextBox3")

    If .Value IsNot Nothing Then

        If filter1 >"" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4386]Like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("TextBox4")

    If .Value IsNot Nothing Then

        If filter1 >"" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4385] Like '*" & .Value & "*'"

    End If

End With

With e.Form.Controls("TextBox5")

    If .Value IsNot Nothing Then

        If filter1 >"" Then

            filter1 = filter1 & " And "

        End If

        filter1 = filter1 & "[F4384]Like '*" & .Value & "*'"

    End If

End With

If filter1 > "" Then

    filter1 = filter1 & " and"

End If

If filter > "" Then

filter = "( " & filter & " ) "

End If

filter1 = filter1 & filter

Forms("缴费户卡").Controls("Table1").Table.filter = filter1

我看不出那里有问题。在弄分页加载前这段代码没有问题。。。