请教如何使用 IN 运算符做参数查询并输入多个值

zbjit

例子已上传，谢谢版主！

andymark

zbjit

感谢版主的帮助，看过你修改过的文件了，用的是 Filter,这个方法其实我用过。实际上我是想知道如何给那个 IN操作符赋多个列表值，是不是不能连续输入用逗号分开的参数值，而只能在基层查询中修改 IN 的参数为 IN ([Value1],[Value],[Value],..),请帮忙！

andymark

输入,号后,用SPLIT分隔出来

Private Sub cboRegion_AfterUpdate()
  
Dim strWhere As String
Dim vArr As Variant
Dim i As Integer
Dim Str As String
strWhere = ""

If Not IsNull(Me.cboRegion) Then
     
      If Me.cboRegion = "All" Then
      
             Me.txtRegion = "Export,Local"
            
             vArr = Split(Me.txtRegion, ",")
           
                 For i = LBound(vArr) To UBound(vArr)
         
                     If vArr(i) <> "" Then
                     
                        Str = Str & "'" & vArr(i) & "',"

                     End If
        
                Next i
            
            strWhere = strWhere & "[Region] in (" & Str & ") AND "
   
        Else
        
            strWhere = strWhere & "([Region] like '*" & Me.cboRegion & "*') AND "
         
        End If
   
End If
      
    If Len(strWhere) > 0 Then
    strWhere = Left(strWhere, Len(strWhere) - 5)

End If
   
   
    Me.Form.Filter = strWhere
    Me.Form.FilterOn = True
   
   
End Sub

[此贴子已经被作者于2006-7-20 10:13:33编辑过]

zbjit

版主没有把代码写全，该如何传递分割後的阵列值传递给查询呢？

andymark

直接在查询里应该不行,可以根据条件生成查询

Dim AQueryDef As QueryDef

Dim strWhere As String
Dim vArr As Variant
Dim i As Integer
Dim Str As String
strWhere = ""

If Not IsNull(Me.cboRegion) Then
     
      If Me.cboRegion = "All" Then
      
             Me.txtRegion = "Export,Local"
            
             vArr = Split(Me.txtRegion, ",")
           
                 For i = LBound(vArr) To UBound(vArr)
         
                     If vArr(i) <> "" Then
                     
                        Str = Str & "'" & vArr(i) & "',"

                     End If
        
                Next i
            
            strWhere = strWhere & "[Region] in (" & Str & ") AND "
   
        Else
        
            strWhere = strWhere & "([Region] like '*" & Me.cboRegion & "*') AND "
         
        End If
   
End If
      
    If Len(strWhere) > 0 Then
    strWhere = Left(strWhere, Len(strWhere) - 5)

End If
   
Set AQueryDef = CurrentDb.QueryDefs("qryItem")

AQueryDef.Sql = "SELECT * FROM tblItem where " & strWhere & ""

If (Err) Then
   Exit Sub
End If
   
AQueryDef.Close

CurrentDb.QueryDefs.Refresh
DoCmd.OpenQuery "qryItem"

zbjit

多謝版主，看來我只有運用篩選和多個參數查詢了

Threaten

怎么代码看不见