主题：[求助] 字符中带符号查找不到?请指教

型号列中字符内容带符号* 和- 就出错,代码如下

                Filter4 = "[型号] = '" &  dr("用料规格") & "'"
MessageBox.Show(filter4)
                If  DataTables("CLGG").Find(Filter4) Is Nothing Then '如果对应的有加载过
                    DataTables("CLGG").AppendLoad(Filter4) '则追载明细
                End If
MessageBox.Show(2)
                Dim dr2 As DataRow
                dr2 = DataTables("产品资料表").Find(Filter4)
                If dr2 IsNot Nothing Then
                    dr("材料类型") = dr2("材质")
                End If
            End If

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png