以下是引用狐狸爸爸在2011-10-11 11:04:00的发言:
Dim Filter As String
For Each dc As Col In CurrentTable.Cols
If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then
Continue For
End If
If Filter > "" Then
Filter = Filter & " Or "
End If
Filter = Filter & "[" & dc.Name & "] Like '*" & cb3 & "*'"
Next
CurrentTable.Filter = Filter
请问,这段代码放在何处,我放到什么地方都报错
错误提示"没有可访问的"filter"接受此数目的参数,因此重载决策失败"
错误代码: if filter >"" then
[此贴子已经被作者于2011-10-13 11:05:45编辑过]