主题：[求助]空值提示命令

Dim flt As String

For Each c As Col In Tables("工作日志表").Cols

    For Each ctl As WinForm.Control In e.Form.Controls

        If c.Name = ctl.Name Then

            If e.Form.Controls(ctl.Name).Text > "" Then

                If c.IsDate Then

                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

                ElseIf c.IsString Then

                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

                End If

            End If

        End If

    Next

Next

If flt > "" Then

    flt = flt.SubString(5)

    Tables("工作日志表").Filter = flt

End If

不太明白你的意思?  如果筛选的结果一行也没有? 就不执行筛选?