主题：[求助]未将对象引用设置到对象的实例。

这样改一下看看：

if e.Form.Controls("查询利润单").Text >"" then

    e.Form.Controls("查询利润单").Text = e.Form.Controls("查询利润单").Text.Replace("*","")

end if

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