数据筛选[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "主诉"
        Dim filter As String = "1=2"
        For i As Integer =1 To DataTables("表B").DataCols.Count-1
            Dim str As String = e.DataRow("主诉")
            Dim name As String = Tables("表B").Cols(i).name
            If str> "" AndAlso str.Contains(name) Then
                filter &= " or " & name & " Is not null"   '在表B中筛选出【发热】列不为空的行
            End If
        Next
        Tables("表B").filter = filter
End Select

主题：数据筛选[求助]