Dim Filter As String
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter ="BILLND = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
End If
Filter =Filter & "JSCODE = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("一级审核_Table1").Filter = Filter & tables（"一级审核_table1"）.Current（“一级审核”）=false ‘就这段的问题
End If
系统会提示 从字符串“JSCODE = '412'False”到类型“Boolean”的转换无效。
如果改成
Tables("一级审核_Table1").Filter = Filter & “ [一级审核] = false ”
的话，则提示[一级审核]后面缺少操作数
求解
[此贴子已经被作者于2017/9/23 18:28:34编辑过]
加好友 
发短信
Post By：2017/9/23 18:10:00 [只看该作者]
