Dim filter As String = Tables("采购汇总").Filter
Tables("采购汇总").Filter = iif(filter>"", filter & " and ", "") & "供应商名称 like '*"& gys.Text & "*'"
加好友 
发短信
Post By：2015/11/13 11:17:00 [显示全部帖子]
