分享並請教 按mouse選項來篩選子窗體

lingsum

在FORM1里
以下VB根據我選擇的date, 更新子窗體的內容

但結果出現問題,與事實不符,我找不到錯誤在哪里
==========
Option Compare Database
Private Sub list0_AfterUpdate()
On Error GoTo Exit_Err
    Dim Ctl As Control
    Dim I As Integer
   
    Dim s As String
   
    Set Ctl = Me!List0
    For I = 0 To Ctl.ListCount - 1
        If Ctl.Selected(I) Then
           
            s = s & "#" & Ctl.Column(0, I) & "#" & ","
        End If
    Next I
    Me.data.Form.Filter = "[date] in (" & s & ")"
    Me.data.Form.FilterOn = True
Exit_Err:
    Exit Sub
End Sub

lingsum

好奇怪
有某些日期正常,有某些日期不正常
(各位可以試試點選form1的 list0里的日期, 子窗體會有變化

其查詢條件只是很簡單, where [date] in(#已選日期1#,#已選日期2#,...)

求救!!!

lingsum

up help