主题：[求助]无法在 System.Double 和 System.String 上执行“Like”操作。

如果是数值列，改成红色

tbl.Filter = "产品ID Like " & txt & " Or 缺省供应商 Like " & txt & " Or 销售产品ID Like " & txt & " Or 类别 Like " & txt & " Or 品牌 Like " & txt & "  Or 产品图号 Like " & txt & " Or 产品型号 Like " & txt & " Or 参考代号 Like " & txt & " Or 产品图号 Like " & txt & " Or 产品名称 Like " & txt & " Or 产品材料 Like " & txt & " Or 产品规格 Like " & txt & " Or convert(外径, 'System.String') Like " & txt  & " Or 内径 Like " & txt & " Or 高度 Like " & txt & " Or 备注 Like " & txt

Dim filter As String = "1=1"
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","世源图号","产品材料","产品规格","外径","内径","高度","产品尺寸"}
For Each st As String In sts
    Dim  val As String = e.Form.Controls(st).value
    If val > "" Then
        val = val.Replace("*","[*]")
        If Tables("产品表").cols(st).IsString Then
            filter = filter & " and " & st & " like '*" & val & "*'"
        Else
            filter = filter & " and convert(" & st & ",'System.String') like '*" & val & "*'"
        End If
    End If
Next

Tables("产品表").Filter = filter

1、代码写到你窗口的事件去；

2、如果还报错，重新打开项目后测试。