查询按钮代码设置

qp370982

要求：
1、当“情况”组合框选项为“销售、库存、租借”时，就分别查询表中“情况”列为“销售、库存、租借”的内容
2、当“情况”组合框选项为“未销售”时，查询表中“情况”列为“库存”和“租借”的内容

Henry D. Sy

重复发帖了吧

qp370982

上次是表设计，这次是查询按钮代码设置

Henry D. Sy

Private Sub Combo1_AfterUpdate()
    Dim strRs As String
    Select Case Me.Combo1
    Case "未销售"
        strRs = "库存;租借"
    Case Else
        strRs = "销售;库存;租借"
    End Select
    Me.资料子窗体.Form.情况.RowSourceType = "Value List"
    Me.资料子窗体.Form.情况.RowSource = strRs
End Sub

qp370982

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

Henry D. Sy

怎么可能

qp370982

好像没有按钮点击的事件

Henry D. Sy

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

qp370982

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

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

Henry D. Sy

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