查询按钮代码设置

qp370982

查询，和普通的多条件查询没什么区别，就是当在“情况”组合框中选“未消除”时，是同时查询租借和库存的内容

qp370982

各位老师辛苦了，望各位老师多帮帮忙

qp370982

各位老师辛苦了，望各位老师多帮帮忙

Henry D. Sy

Private Sub Command5_Click()
    Dim strCriteria As String
    Dim strWhat As String
    If IsNull(Me.Combo1) Then
        MsgBox "enter the some data to combo1 first"
        Me.Combo1.SetFocus
        Exit Sub
    End If
    strWhat = Me.Combo1
    strCriteria = "情况='库存' or 情况='租借'"
    If strWhat = "销售" Or strWhat = "库存" Or strWhat = "租借" Then
        strCriteria = strCriteria & " Or " & "情况='销售'"
    End If
    Me.资料子窗体.Form.Filter = strCriteria
    Me.资料子窗体.Form.FilterOn = True
End Sub

qp370982

老师这样设置“情况”组合框就成了必填项，可不可以设置为非必填项。
这几天学了点vb，可以看懂点

Henry D. Sy

不填你查什么？

qp370982

我可以针对人员或者编号进行查询

Henry D. Sy

不知道你在说什么

qp370982

我只是想做一个多条件查询窗体，可以针对“情况”、“人员”、“日期”、“编号”任意设置查询条件，只是当在“情况”设置为里“未销售”时，查询包含“库存”和“租借”的内容。谢谢老师，您受累了

qp370982

老师你明白了吗。麻烦你了