Office中国论坛/Access中国论坛

标题: 分享並請教按mouse選項來篩選子窗體 [打印本页]

作者: lingsum 时间: 2008-8-29 18:43
标题: 分享並請教按mouse選項來篩選子窗體
在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 时间: 2008-8-29 18:52
好奇怪
有某些日期正常,有某些日期不正常
(各位可以試試點選form1的 list0里的日期, 子窗體會有變化

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

求救!!!

作者: lingsum 时间: 2008-8-30 11:13
up help

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)