菜鸟再次向煮江品茶老师求教

雪山麒麟　发表于：2011-09-29 17:39:10 　

我在一窗体中设置了双条件查询，代码如下：

Private Sub Command13_Click()
Dim strSQL As String
    Dim rptsource As String
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update 已发薪资表 set 标识 = null where 标识 <> 1"
    DoCmd.SetWarnings True
    strSQL = "select * from 已发薪资表 where 标识 is null and 部门名称 <> null"
    If IsNull(Me.Name) = False Then
        'strSQL = "select * from 已发薪资表 where 标识 is null"
        strSQL = strSQL & " and 部门名称 like '*" & Me.部门名称 & "*'"
        Me.部门名称 = Null
            End If
            DoCmd.SetWarnings True
    strSQL = "select * from 已发薪资表 where 标识 is null and 薪资ID <> null"
    If IsNull(Me.Name) = False Then
        'strSQL = "select * from 已发薪资表 where 标识 is null"
        strSQL = strSQL & " and 薪资ID like '*" & Me.薪资ID & "*'"
        Me.薪资ID = Null
    End If
    Me.打印条子窗体.Form.RecordSource = strSQL
    rptsource = Me.打印条子窗体.Form.RecordSource
    Me.打印条子窗体.Form.Refresh
End Sub

我需要的是选择部门名称和薪资ID后，再按查询按钮，相对应的部门和薪资ID的条件的都能显示，但上面的代码就只能显示按薪资ID的条件。请帮一下。谢谢

Top

羽扇子君发表于：2011-09-29 19:50:23

去掉2个If之间的2条语句.

Top

煮江品茶发表于：2011-09-29 20:44:41

dim strwh as string
strwh="True"
if isnull(me.部门名称.value)=false then
strwh=strwh & " and 部门名称='" & me.部门名称.value & "'"
end if
if isnull(me.薪资ID.value)=false then
strwh=strwh & " and 薪资ID='" & me.薪资ID.value & "'"
end if
Me.打印条子窗体.Form.filter=strwh
Me.打印条子窗体.Form.filteron=True

Top

煮江品茶发表于：2011-09-29 20:45:35

再问这样低级的问题，我可不回答了。