代码报错，求大神指教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim xmtz As WinForm.TextBox = e.Form.Controls("所在地区")

Dim kgnf As WinForm.TextBox = e.Form.Controls("资金文号")

Dim afbc As WinForm.TextBox = e.Form.Controls("类别")

Dim rtyu As WinForm.TextBox = e.Form.Controls("名称")

Dim frip As WinForm.TextBox = e.Form.Controls("年度")

Dim Filter As String Or Integer

If xmtz.Value IsNot Nothing Then

Filter = "第一列 like '*" & xmtz.Value & "*'"

End If

If kgnf.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第二列 or 第三列 like '*" & kgnf.Value & "*'"

End If

If afbc.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第四列 like '*" & afbc.Value & "*'"

End If

If rtyu.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第五列 like '*" & rtyu.Value & "*'"

End If

If frip.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第六列 like '*" & rtyu.Value & "*'"

End If

If Filter> "" Then

Tables("表C").Filter = Filter

End If

Dim Filter As String Or Integer报错说应为语句结束。求大神指教

呃，

Dim Filter As String Or Integer

改成

Dim Filter As String

Dim frip As WinForm.TextBox = e.Form.Controls("年度")

甜老师，但这一个列是整数型，日期。

If frip.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第六列 = '#" & rtyu.Value & "#'"

End If

感谢两位版主大神！！If kgnf.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第二列 or 第三列 like '*" & kgnf.Value & "*'"

End If这里的代码可否改造为If kgnf.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第二列 or 第三列 like '*" '#"& kgnf.Value & "*'" "#'"

因为第二列或者第三列为字符列，但搜索内容和内容有数字。

只要是字符型列就当作字符串使用即可

5楼代码不可以这么写

http://www.foxtable.com/help/topics/1058.htm

又出现新问题，在年度的TEXTBOX输入一个年度数字，点击搜索，出来无法在 System.DateTime 和 System.String 上执行“Like”操作。

If frip.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "第六列 = #" & rtyu.Value & "#"

End If

If frip.Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "Convert(第六列,'System.String') Like '%" & rtyu.Value & "%'"
End If

BIN老师，已经按您的代码改造，表达式包含无效的日期常量“##”

主题：代码报错，求大神指教