向高手请教一下一个报错信息该如何改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你把Filter 显示出来看看吧

MessageBox.Show(Filter)

以下是引用jialihaha在2014-12-2 14:09:00的发言：
你把Filter 显示出来看看吧

MessageBox.Show(Filter)

把

MessageBox.Show(Filter)

这句放到查询按钮 click 事件代码最后行，运行后，点击查询按钮，显示

[客户全称] like '**'

Filter = Filter & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'" '定义筛选字符串

以下是引用有点甜在2014-12-2 14:26:00的发言：

Filter = Filter & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'" '定义筛选字符串

老师，求助啊！

运行一下提示如下:

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
语法错误:“Convert”运算符后缺少操作数。

整体代码如下：

Dim Filter ,colname ,txt As String '定义变量

colname =e.Form.Controls("查询类型").Value   '定义组合框的值
txt = e.Form.Controls("输入查询内容").Value    '定义文本框的值
If colname Is Nothing Then    '如果组合框的值为空
    Return   '返回
End If
For Each dc As Col In Tables("客户信息").Cols '遍历表的所有列
Filter = Filter & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'"    '定义筛选字符串
    If dc.Name = colname Then   '如果列名和组合框的值相符
        If Filter > "" Then
            Filter = Filter & " Or "
        End If
        Filter = Filter & "[" & dc.Name & "] Like '*" & txt & "*'"    '定义筛选字符串
    End If '根据控件值迷糊筛选
Next
Tables("客户信息").Filter = Filter '将数据筛选出来

[此贴子已经被作者于2014-12-2 14:53:36编辑过]

Dim Filter ,colname ,txt As String '定义变量

colname =e.Form.Controls("查询类型").Value   '定义组合框的值
txt = e.Form.Controls("输入查询内容").Value    '定义文本框的值
If colname Is Nothing Then    '如果组合框的值为空
    Return   '返回
End If
For Each dc As Col In Tables("客户信息").Cols '遍历表的所有列
    If dc.Name = colname Then   '如果列名和组合框的值相符
        If Filter > "" Then
            Filter = Filter & " Or "
        End If
        Filter = Filter & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'"    '定义筛选字符串
    End If '根据控件值迷糊筛选
Next
Tables("客户信息").Filter = Filter '将数据筛选出来

不会做，就上传具体例子说明。

好的，谢谢啦。

以下是引用有点甜在2014-12-2 14:57:00的发言：

Dim Filter ,colname ,txt As String '定义变量

colname =e.Form.Controls("查询类型").Value   '定义组合框的值
txt = e.Form.Controls("输入查询内容").Value    '定义文本框的值
If colname Is Nothing Then    '如果组合框的值为空
    Return   '返回
End If
For Each dc As Col In Tables("客户信息").Cols '遍历表的所有列
    If dc.Name = colname Then   '如果列名和组合框的值相符
        If Filter > "" Then
            Filter = Filter & " Or "
        End If
        Filter = Filter & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'"    '定义筛选字符串
    End If '根据控件值迷糊筛选
Next
Tables("客户信息").Filter = Filter '将数据筛选出来

图片点击可在新窗口打开查看太棒了！！

主题：向高手请教一下一个报错信息该如何改