查询按钮代码设置

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

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

qp370982

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

qp370982

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

Henry D. Sy

晕
表达都没有表达清楚，你是查询或是组合框联动？？？？

qp370982

还是不行，老师您看看能不能通过点击按钮来实现,因为还有其他查询条件，都是选什么查什么，我都搞定了，就剩这一项了，最后想通过一个按钮进行查询
另外我说的意思是当“情况”组合框选“销售”时，只查表中“情况”列为销售的内容；当“情况”组合框选“租借”时，只查表中“情况”列为租借的内容；当“库存”组合框选“销售”时，只查表中“情况”列为库存的内容；只有当“情况”组合框选“未销售”时，是查表中“情况”列为库存和租借的情况

[ 本帖最后由 qp370982 于 2008-12-26 11:54 编辑 ]

Henry D. Sy

主窗体的组合框更新后事件
4楼不是帮你写得很清楚了。

qp370982

好像没有按钮点击的事件

Henry D. Sy

怎么可能

qp370982

不行，点击按钮没任何反应