求助：一点通

zx994398

如何在“查询”中设置条件才能产生以下的查询效果？请帮忙修改，谢谢！

fan0217

Private Sub 种类1_AfterUpdate()

    Dim ctlList As Control
    Dim varItem As Variant
    Dim strString As String
    Dim strSQL As String

Set ctlList = Me.种类1
   
    For Each varItem In ctlList.ItemsSelected
        strString = strString & " Or 种类id=" & ctlList.ItemData(varItem)
    Next
    If strString = "" Then
        strSQL = "SELECT * FROM xy入库单明细"
    Else
        strString = Right(strString, Len(strString) - 4)
        strSQL = "SELECT * FROM xy入库单明细 WHERE " & strString
    End If
    Me.xy入库单明细子窗体.Form.RecordSource = strSQL
    Me.xy入库单明细子窗体.Requery
End Sub

[此贴子已经被作者于2006-2-25 21:38:29编辑过]

zx994398

谢谢，研究一下，也就是说这样的查询是无法在“查询”中设条件的，所以对应的报表也要用别的方法产生，是不是这样？

[此贴子已经被作者于2006-2-27 10:00:13编辑过]

fan0217

可以将报表的记录源设置同子窗体就可以了。