参考

http://www.foxtable.com/webhelp/scr/1058.htm

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113810&authorid=0&page=0&star=2

Dim nms() As String = {"领取人1"}
Dim sps() As String = {"\'"}
Dim bjf() As String = {"="}
Dim fds() As String = {"领取人"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter = filter & "and "
        End If
        filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End  If
Next
If e.Form.Controls("已还").checked = True
    If filter > "" Then
        filter = filter & " and  "
    End If
    filter=filter & " 已还=true "
End If
If e.Form.Controls("未还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " (已还 =false or 已还 is null)"
End If

Tables("刀具出入库表").filter = filter