Dim txt6 As String = e.sender.Text '没有e.ComboBoxDim tbl6 As Table = Tables("报表")
If txt6 = "" Then tbl6.Filter = ""Else txt6 = "'*" & txt6 & "*'" tbl6.Filter = "单位 Like " & txt6 & " Or Convert([包1],'System.String') Like " & txt6End If