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报错说应为语句结束。求大神指教
加好友 
发短信
Post By：2015/1/21 22:58:00 [只看该作者]
