此主题相关图片如下：007.png
我设计了上面这个窗口，在按钮中设计了以下代码，希望可以实现上面所有条件的全模糊查询。但是当[来源],[区域],[时间],[项目],[供应商],[品牌]其中一列数据为空时，则此行数据将查询不出（是否是因为 空值 like “%%%” = false呢？）。那么这个代码该如何改进呢？
Dim ld1,ld2,ld3,ld4,ld5 As String
Dim startdate,enddate As Date
If e.Form.Controls("区域").Value Is Nothing Then
ld1 = "%"
Else
ld1 = e.Form.Controls("区域").Value
End If
If e.Form.Controls("项目").Value Is Nothing Then
ld2 = "%"
Else
ld2 = e.Form.Controls("项目").Value
End If
If e.Form.Controls("供应商").Value Is Nothing Then
ld3 = "%"
Else
ld3 = e.Form.Controls("供应商").Value
End If
If e.Form.Controls("品牌").Value Is Nothing Then
ld4 = "%"
Else
ld4 = e.Form.Controls("品牌").Value
End If
If e.Form.Controls("来源").Value Is Nothing Then
ld5 = "%"
Else
ld5 = e.Form.Controls("来源").Value
End If
If e.Form.Controls("开始日期").value Is Nothing Then
startdate = #01/01/1900#
Else
startdate = e.Form.Controls("开始日期").value
End If
If e.Form.Controls("截止日期").value Is Nothing Then
enddate = #01/01/9999#
Else
enddate = e.Form.Controls("截止日期").value
End If
此主题相关图片如下：008.png
不知道为何这段代码发不上来，只能以图片贴出了
[此贴子已经被作者于2017/7/8 10:42:47编辑过]
加好友 
发短信
Post By：2017/7/8 10:35:00 [显示全部帖子]
