Dim nms() As String = {"xinminbox","sfzbox","ynzbox"}

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 filter > "" Then

    Tables("参合成员信息").filter = filter

End If