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

zbjit

教各位高手：我在使用IN 做参数查询时，碰到一个问题如下：
1、参数查询SQL语句如下：
SELECT ItemID_Input,Region_Input FROM InputDailyDetails WHERE Region_Input In ([输入内外销?])
当我运行查询并输入 内销 或 外销 时，是可以正常查询的，但当我输入 内销,外销 时，却没有记录返回，
请问该怎么输入才行。也就是如何在此查询的参数提示框内输入多个值
2、如下SQL语句是正常的：
SELECT ItemID, Region FROM InputDetails WHERE Region In ("内销")
SELECT ItemID_Input, Region_Input FROM InputDailyDetails WHERE Region_Input In ("内销","外销")
3、我知道在使用SELECT子查询可以解决此问题，如：
      SELECT ItemID_Input, Region_Input FROM InputDailyDetails WHERE Region_Input In (SELECT Region FROM tblRegion)
      但我在此想知道如何在参数提示框内用输入多个值来代替 SELECT子查询
   请大家帮忙，多谢！

Threaten

怎么代码看不见

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

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

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

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

andymark

zbjit

例子已上传，谢谢版主！

andymark

你点最上面的 回复贴子 ,就可以上传，然后把文件以RAR的方式压缩传上来