Dim txt As String = e.Form.Controls("textbox2").text
Dim tbl As Table = Tables("添加清单_table3")
Dim filter As String
If txt = "" Then
Filter = ""
Return
Else
txt = "'%" & txt & "%'"
Filter = "子目编码 like " & txt & " Or 子目名称 Like " & txt & " Or 项目特征描述 Like " & txt
End If
If filter > "" Then
DataTables("清单指引").RemoveFor(filter)
DataTables("清单指引").AppendLoad(filter)
tbl.filter = filter
Else
DataTables("清单指引").LoadFilter = filter
DataTables("清单指引").load
tbl.filter = filter
End If
e.Form.Controls("Table3").Table.AutoSizeRows()
加好友 
发短信
Post By：2017/5/24 13:55:00 [只看该作者]
