可以去编写beforeFilter事件
http://www.foxtable.com/webhelp/scr/2059.htm
If e.filter = "" Then
e.Filter = "合同类型] like '%工程%'"
End If