如图,一个窗口中的设计是这样的:
此主题相关图片如下:qq截图20160802105051.jpg
此主题相关图片如下:qq截图20160802101653.jpg
“多项查询”代码设计如下:
Dim Filter As String
With e.Form.Controls("项目经理")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "项目经理 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("设计师")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter &= "设计师 in ('" & .Value.Replace(",", "','") & "')"
End If
End With
With e.Form.Controls("开工起始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("开工结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "开工日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("开工日期表_Table1").Filter = Filter
End If
现在我要添加一个DropDownBox控件,这个控件的设置也已经设置好了,但不知道应该怎么添加进这组代码中,求助?
[此贴子已经被作者于2016/8/2 11:04:12编辑过]