如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步

goto2008 · 发表于 2007-7-29 21:32:00

<

>我想将经查询后的结果导到EXCEL里。。。。。但导出的却是所有的记录。。。
<

>请教。。我是哪一步错了。。
<

>

goto2008 · 发表于 2007-7-29 21:44:00

<

> 
<

>很急哦，请大家帮忙解决一下。
<

>整个库，，这个功能是成果的体现。。。

nxjswt · 发表于 2007-7-29 22:04:00

这样也可以解决

[此贴子已经被作者于2007-7-29 14:04:53编辑过]

nxjswt · 发表于 2007-7-29 22:09:00

你可以直接将上面的报表导出到excel!

goto2008 · 发表于 2007-7-29 22:41:00

<DIV class=quote>以下是引用nxjswt在2007-7-29 14:09:00的发言： 你可以直接将上面的报表导出到excel!</DIV>
<

>你好，你这个方法不行。。。
<

>因为我采用的是交叉查询。。。在列字段上有时多，有时少。。。。不是固定住的。。
<

>
大哥，请你帮我重新看看。。

goto2008 · 发表于 2007-7-29 22:45:00

<

>如果我增加了一个层名称为：20层，
<

>那么这个子窗体，就显示出不出来了。。。。。。

nxjswt · 发表于 2007-7-29 23:16:00

<

>请你再仔细研究，应该是可以的，不论你的查询怎么，你的子窗体都是以你修改后的查询为数据来源的！[em05]

goto2008 · 发表于 2007-7-29 23:25:00

<

>郁闷的说。

t小宝 · 发表于 2007-7-30 02:47:00

<

>先在你的窗体模块中添加一个子过程:
<

>

rivate Sub s筛选记录(st条件 As String)
 Dim dbs As Database Dim qdf As QueryDef Dim stsql As String stsql = "TRANSFORM Sum(批数) AS 批数之总计 " & _ "SELECT 领取日期, 冲工编号, 冲床工人, 货号, 数量 FROM 冲床领取明细表 " & st条件 & _ " GROUP BY ID, 领取日期, 冲工编号, 冲床工人, 货号, 数量 PIVOT 层名称;" Set dbs = CurrentDb Set qdf = dbs.QueryDefs("冲床领取明细交叉查询1") Me.冲床总工资查询子窗体.SourceObject = "" qdf.SQL = stsql Me.冲床总工资查询子窗体.SourceObject = "查询.冲床领取明细交叉查询1"
 qdf.Close dbs.Close Set qdf = Nothing Set dbs = Nothing End Sub 
然后在 cmd查询_Click 过程中用:
 s筛选记录 " Where " & strWhere
取代
 Me.冲床总工资查询子窗体.Form.Filter = strWhere Me.冲床总工资查询子窗体.Form.FilterOn = True
在此 cmd清除_Click 过程中用:
 s筛选记录 ""
取代
 Me.冲床总工资查询子窗体.Form.Filter = "" Me.冲床总工资查询子窗体.Form.FilterOn = False
你看看,可不可以

goto2008 · 发表于 2007-7-30 03:39:00

<

>
<

>小宝，我看你还是把库上传上来给我瞄瞄吧。。。
<

>人家我很菜的。。。

[此贴子已经被作者于2007-7-29 19:41:28编辑过]

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)