标题：[求助]借鉴了华海仓库的查询例子，出错 什么情况？
With e.form
Dim sql,str1,kz As String
kz = "ComboBox3,ComboBox4,ComboBox1,TextBox2,DateTimePicker3,DateTimePicker4"
str1 = "审核状态='@$0',部门= '@$1',岗位= '@$2',责任人= '@$3',日期 >= #@$4#,日期 <= #@$5#"
Dim i As Integer
For Each k As String In kz.split(",")
If .Controls(k).Value IsNot Nothing Then
If i=0 And .Controls("CheckBox2").Checked Then
sql = sql & " AND " & str1.split(",")(i).Replace("='@$" & i," like '%" & .Controls(k).Value & "%")
Else
sql = sql & " AND " & str1.split(",")(i).Replace("@$" & i,.Controls(k).Value)
End If
End If
i += 1
Next
If sql > "" Then
Tables("现场检查").Filter = sql
End If
End With
出错说：
此主题相关图片如下：未命名.jpg
还有 上面代码中 i += 1 是原版华海仓库的 是错的 还是什么？ 我觉得应该是i = i+1啊！
这样?
If i=0 And .Controls("CheckBox2").Checked Then
sql = str1.split(",")(i).Replace("='@$" & i," like '%" & .Controls(k).Value & "%' ")
Else
i+=1 和 i = i+1使一样的........