Office中国论坛/Access中国论坛

标题: 求助：一点通 [打印本页]

作者: zx994398 时间: 2006-2-25 18:18
标题: 求助：一点通
如何在“查询”中设置条件才能产生以下的查询效果？请帮忙修改，谢谢！[attach]16012[/attach]

作者: fan0217 时间: 2006-2-26 05:37
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[attach]16022[/attach]

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

作者: zx994398 时间: 2006-2-27 17:57
谢谢，研究一下，也就是说这样的查询是无法在“查询”中设条件的，所以对应的报表也要用别的方法产生，是不是这样？

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

作者: fan0217 时间: 2006-2-28 03:25
可以将报表的记录源设置同子窗体就可以了。

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