[求助]帮我检查下代码有什么问题 Post By:2011/8/30 17:33:00 [只看该作者]
帮我检查下,我看的都快吐了,下面代码有什么问题:
Dim Filter As String With e.Form.Controls("发货单") If .checked = True Then Filter = Filter & "发货单 = false" End If End With With e.Form.Controls("快递单号") If Filter > "" Then Filter = Filter & " And " End If If .checked = True Then Filter = Filter & "快递单号 = '0'" End If End With