Dim txt As String = e.Form.textbox.TextDim tbl As Table = Tables("窗口1_Table1")If txt = "" Then tbl.Filter = ""Else txt = "'*" & txt & "*'" tbl.Filter = "产品 Like "& txtEnd If
加好友 
发短信
Post By：2013/5/23 9:53:00 [显示全部帖子]
