e.Form.Controls("查询利润单").Text = e.Form.Controls("查询利润单").Text.Replace("*","") Dim txt As String = e.Form.Controls("查询利润单").Text Dim tbl As Table = Tables("利润单") If txt = "" Then tbl.Filter = "" Else txt = "'*" & txt & "*'" tbl.Filter =" 业务负责 Like " & txt End If