Dim Filter As StringIf e.Form.Controls("CheckBox1").Checked = True Then
Filter = "[明细分类] = '业主月租停车'"
end if
If e.Form.Controls("CheckBox2").Checked = True Then
If Filter > "" Then
Filter = Filter & " Or "
End If
Filter = Filter & "[明细分类] = '租户月租停车'"
end if
If e.Form.Controls("CheckBox3").Checked = True Then
If Filter > "" Then
Filter = Filter & " Or "
End If
Filter = Filter & "[明细分类] = '亲情临时停车'"
end if
加好友 
发短信
Post By：2022/9/25 22:16:00 [显示全部帖子]
