行中其他单元格不显示是什么意思?显示空白?筛选以后的数据还需要再修改的吗?
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