这段代码的功能:窗口中有textbox1控件,Button1,和table1。根据textbox1控件中输入内容,点击Button1后,更新table1的对应内容。
--------------
1 Dim T As String = forms("ERP界面").Controls("人事档案TextBox1").Value '定义控件的值
2 Dim Filter As String '定义筛选
3 For Each dc As Col In Tables("人事档案_人事档案Table1").Cols '遍历表的所有列
4 If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then '如果是时间列,逻辑列,数值列
5 Continue For '排除
6 End If
7 If Filter > "" Then
8 Filter = Filter & " Or "
9 End If
10 Filter = Filter & "[" & dc.Name & "] Like '*" & T & "*'" '根据控件值迷糊筛选
11Next
12Tables("人事档案_人事档案Table1").Filter = Filter '将数据筛选出来
-------------
只要看不懂的是7、8句,第10句
请老师们指点下。