内部函数无法执行的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全局代码中代码

Public Filter As String

内部函数中代码

If Filter > "" Then

Tables(Maintable.Name).DataTable.loadfilter = Filter

Tables(Maintable.Name).DataTable.load

Else

Tables(Maintable.Name).DataTable.loadfilter = ""

Tables(Maintable.Name).DataTable.load

End If

Forms ("导航窗口").Controls("TextBox1").Value = 1 & "/" & Tables(Maintable.Name).DataTable.TotalPages

窗口中全局事件Click代码

With e.Form.Controls("上游客户")

If .text > "" Then

Filter = "上游客户 like '%" & .text & "%'"

End If

End With

With e.Form.Controls("品牌")

If .text > "" Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "品牌 like '%" & .text & "%'"

End If

End With

With e.Form.Controls("商品车")

If .text > "" Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "商品车 like '%" & .text & "%'"

End If

End With

With e.Form.Controls("备注")

If .text > "" Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "备注 like '%" & .text & "%'"

End If

End With

Select Case e.Sender.Name

Case "查询"

Functions.Execute("查询")

Case "清除"

Functions.Execute("清除", e) '清除窗口查询条件

End Select

第一次执行查询按钮，是没有问题的，可以按条件加载数据。

但是如果击清除按钮后，再点击查询，就没有反应了

老师帮分析一下原因，及解决的办法

主题：内部函数无法执行的问题