这样?
If i=0 And .Controls("CheckBox2").Checked Then sql = str1.split(",")(i).Replace("='@$" & i," like '%" & .Controls(k).Value & "%' ") Else
i+=1 和 i = i+1使一样的........