Dim flt As String For Each c As Col In Tables("表A").Cols For Each ctl As WinForm.Control In e.Form.Controls If ctl.Gettype.name <> "Table" Then If e.Form.Controls(ctl.Name).Text > "" Then If ctl.Gettype.Name = "RadioButton" Then If ctl.Name.Split("_")(0) = c.Name AndAlso e.Form.Controls(ctl.Name).Checked Then flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And " End If Else If ctl.Name.Contains("0") AndAlso ctl.Name.Split("_")(0) = c.Name Then flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And " ElseIf ctl.Name.Contains("1") AndAlso ctl.Name.Split("_")(0) = c.Name Then flt + = c.Name & " >= " & e.Form.Controls(ctl.Name).Text & " And " ElseIf ctl.Name.Contains("2") AndAlso ctl.Name.Split("_")(0) = c.Name Then flt + = c.Name & " <= " & e.Form.Controls(ctl.Name).Text & " And " ElseIf ctl.Name = c.Name AndAlso c.Name = "字符模糊搜索" Then flt + = c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%' And " End If End If End If End If Next Next If flt > "" Then flt = flt.SubString(0,flt.Length - 5) End If Tables("表A").Filter = flt