主题：请教老师们拉

Dim com As WinForm.ComboBox = e.Form.Controls("工序焊前准备")

Dim filter As String = "1=2"

For Each dc As DataCol In DataTables("工时核算").DataCols

    If dc.IsString Then

        filter += " or " & dc.Name & " Like '*" & com.Text & "*'"

        Dim fdr As DataRow = DataTables("工时核算").Find(dc.Name & " like '*" & com.Text & "*'")

        Tables("工时核算").Cols(dc.Name).Visible = (fdr IsNot Nothing)

    End If

Next

Tables("工时核算").Filter = filter