[求助]哪位大师能逐行解释一下代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

CurrentTable.Filter = "" 当前表去掉筛选

Dim Filter As String 定义一个字符串来存放筛选条件

With e.Form.Controls("TextBox1")

If .Value IsNot Nothing Then 如果文本控件有内容

Filter = "'*" & .Value & "*'" 组合动态字符为'*文本内容*'

End If

End With

If Filter > "" Then 如果字符串有内空

Tables("班级成绩表").Filter = "学号 Like " & Filter & " Or 姓名 Like " & Filter & " Or 班级 Like " & Filter 表的筛选条件为每列与字符串like

End If

主题：[求助]哪位大师能逐行解释一下代码？