交叉表查询应用在窗体查询中时，怎样设置查询代码？

Lee　发表于：2010-06-10 19:11:03 　

最近拜读了刘小军先生的《ACCESS窗体查询实例》一文后，自己尝试设计一个交叉查询表的查询窗体，但按刘小军先生所教的方法进行查询代码设置多次都未生效，望各位朋友指点一二。

黎红军发表于：2010-06-11 08:12:06

strSQL = "TRANSFORM Sum(入库查询.进仓数量) AS 进仓数量之Sum SELECT 入库查询.产品编号 FROM 入库查询 "
strSQL = strSQL & "WHERE(" & strWhere
strSQL = strSQL & ") GROUP BY 入库查询.产品编号 PIVOT Format([进仓日期],'yyyy/mm')"
Me.入库交叉表查询子窗体.SourceObject = ""
Me.入库交叉表查询子窗体.SourceObject = "查询.入库交叉表查询"
如下为交叉查询含参数的势力，供你对比：

PARAMETERS cpbh Text ( 255 ), jcrq DateTime;
TRANSFORM Sum(入库查询.进仓数量) AS 进仓数量之总计
SELECT 入库查询.产品编号
FROM 入库查询
WHERE (((入库查询.产品编号)=[cpbh]) AND ((入库查询.进仓日期)=[jcrq]))
GROUP BY 入库查询.产品编号
PIVOT 入库查询.进仓日期;

Top

Lee 发表于：2010-06-11 20:18:38

不明白，能上传个示例吗？

Top

Lee 发表于：2010-06-11 21:40:11

上网查了一下再修改，还是不行。

窗体中有“产品编号”、“进仓日期开始”、“进仓日期结束”三个查询文本框，我现时代码如下：

Private Sub 入库查询_Click()

Dim strWhere As String
Dim qdf As DAO.QueryDef
Dim strSQL As String

strWhere = ""
If Not IsNull(Me.产品编号) Then
strWhere = strWhere & "([产品编号] like '*" & Me.产品编号 & "*') AND "
    End If
    If Not IsNull(Me.进仓日期开始) Then
strWhere = strWhere & "([进仓日期] >= #" & Format(Me.进仓日期开始, "yyyy-mm-dd") & "#) AND "
    End If
If Not IsNull(Me.进仓日期结束) Then
strWhere = strWhere & "([进仓日期] <= #" & Format(Me.进仓日期结束, "yyyy-mm-dd") & "#) AND "
    End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

If Len(strWhere) > 0 Then
strSQL = "TRANSFORM Sum(入库查询.进仓数量) AS 进仓数量之Sum SELECT 入库查询.产品编号 FROM 入库查询 "
strSQL = strSQL & "WHERE(" & strWhere
strSQL = strSQL & ") GROUP BY 入库查询.产品编号 PIVOT Format([进仓日期],'yyyy-mm-dd')"
Else
strSQL = "TRANSFORM Sum(入库查询.进仓数量) AS 单价之Sum" & _
" SELECT 入库查询.产品编号" & _
" FROM 入库查询" & _
" GROUP BY 入库查询.产品编号" & _
" PIVOT Format([进仓日期],'yyyy-mm-dd')"
End If

Set qdf = CurrentDb.QueryDefs("入库交叉表查询")
    qdf.SQL = strSQL
    qdf.Close

    Set qdf = Nothing

Me.入库交叉表查询子窗体.SourceObject = ""
Me.入库交叉表查询子窗体.SourceObject = "查询.入库交叉表查询"

End Sub

但查询不能有效运行，请指点一下代码中的问题。

点击下载此附件

Top

wang decheng 发表于：2010-06-12 09:04:31

点击下载此附件

有好几处你的错误和上次一样。已经改过来了。查询的代码没有问题，而清除的代码过于简单，你自己看一下

Top

Lee 发表于：2010-06-14 23:12:53

我比较了一下，发现“入库交叉表查询”有所不同，你列标题是“Format([进仓日期],'yyyy\-mm\-dd')”，我想按你那样修改时总是变成“表达式1：Format([进仓日期],'yyyy\-mm\-dd')”，不知何故?另外“入库交叉表查询”的值，你改为“单价之Sum: 进仓数量”，我想应是“进仓数量之Sum: 进仓数量”吧？但这个并不重要。能说一说哪些地方要修改吗？

Top

Lee 发表于：2010-06-15 19:51:48

发现关键问题了，我入库表中原来有些日期例如是：2009-12-5，在交叉表中要转换成2009-12-05，这样才能与代码中的“[进仓日期],'yyyy-mm-dd'”对应，问题是我不知交叉查询表怎样才能自动转换，请问WANG先生你是怎样做到的？我直接把交叉查询表的列标题字段改为“Format([进仓日期],'yyyy-mm-dd')，却总是自动变成列标题是“表达式1：Format([进仓日期],'yyyy-mm-dd')，不知何解，还望再指点一下。

Top

Lee 发表于：2010-06-19 00:03:56

怎么没人回应了？

Top

黎红军发表于：2010-06-19 07:21:14

真无话可说了，

这个是你的交叉查询代码：

下面的是我修正后的代码，你替换掉你原来的sql代码测试。一般来说，测试sql语句可以用查询来检测结果，比较方便。
如下为交叉查询含参数的实例，供你对比：

Top

黎红军发表于：2010-06-19 07:24:43

交叉表参数查询是需要定义参数条件的：

语句：