Office中国论坛/Access中国论坛
标题: 如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步 [打印本页]
作者: goto2008 时间: 2007-7-29 21:32
标题: 如果将交叉查询的结果，导到EXCEL里，不知我是错了哪一步
<
><FONT size=4>我想将经查询后的结果导到EXCEL里。。。。。但导出的却是所有的记录。。。</FONT></P>
<><FONT size=4>请教。。我是哪一步错了。。</FONT></P>
<>[attach]25545[/attach]</P>
<P><BR> </P>[attach]25546[/attach]<BR>
作者: goto2008 时间: 2007-7-29 21:44
<><FONT size=4></FONT> </P>
<><FONT size=4>很急哦，请大家帮忙解决一下。</FONT></P>
<><FONT size=4>整个库，，这个功能是成果的体现。。。</FONT></P>
<P><FONT size=4></FONT> </P>
作者: nxjswt 时间: 2007-7-29 22:04
这样也可以解决[attach]25549[/attach]<br>
[此贴子已经被作者于2007-7-29 14:04:53编辑过]
作者: nxjswt 时间: 2007-7-29 22:09
你可以直接将上面的报表导出到excel!
作者: goto2008 时间: 2007-7-29 22:41
<DIV class=quote><B>以下是引用<I>nxjswt</I>在2007-7-29 14:09:00的发言：</B><BR>你可以直接将上面的报表导出到excel!</DIV>
<><FONT size=4>你好，你这个方法不行。。。</FONT>
<><FONT size=4>因为我采用的是交叉查询。。。在列字段上有时多，有时少。。。。不是固定住的。。</FONT>
<><FONT size=4></FONT>
<P><FONT size=4>大哥，请你帮我重新看看。。</FONT></P>
作者: goto2008 时间: 2007-7-29 22:45
<>如果我增加了一个层名称为：20层，</P>
<>那么这个子窗体，就显示出不出来了。。。。。。</P>
作者: nxjswt 时间: 2007-7-29 23:16
<>请你再仔细研究，应该是可以的，不论你的查询怎么，你的子窗体都是以你修改后的查询为数据来源的！</P>[em05]
作者: goto2008 时间: 2007-7-29 23:25
<>郁闷的说。</P>
作者: t小宝 时间: 2007-7-30 02:47
<>先在你的窗体模块中添加一个子过程:</P>
<><FONT color=#2222dd>rivate Sub s筛选记录(st条件 As String)</FONT></P>
<P><FONT color=#2222dd> Dim dbs As Database<BR> Dim qdf As QueryDef<BR> Dim stsql As String<BR> <BR> stsql = "TRANSFORM Sum(批数) AS 批数之总计 " & _<BR> "SELECT 领取日期, 冲工编号, 冲床工人, 货号, 数量 FROM 冲床领取明细表 " & st条件 & _<BR> " GROUP BY ID, 领取日期, 冲工编号, 冲床工人, 货号, 数量 PIVOT 层名称;"<BR> <BR> Set dbs = CurrentDb<BR> Set qdf = dbs.QueryDefs("冲床领取明细交叉查询1")<BR> Me.冲床总工资查询子窗体.SourceObject = ""<BR> qdf.SQL = stsql<BR> Me.冲床总工资查询子窗体.SourceObject = "查询.冲床领取明细交叉查询1"</FONT></P>
<P><FONT color=#2222dd> qdf.Close<BR> dbs.Close<BR> Set qdf = Nothing<BR> Set dbs = Nothing<BR>End Sub</FONT><BR></P>
<P>然后在 cmd查询_Click 过程中用:</P>
<P> <FONT color=#1111ee>s筛选记录 " Where " & strWhere</FONT></P>
<P>取代</P>
<P><FONT color=#22dd22> Me.冲床总工资查询子窗体.Form.Filter = strWhere<BR> Me.冲床总工资查询子窗体.Form.FilterOn = True</FONT></P>
<P>在此 cmd清除_Click 过程中用:</P>
<P><FONT color=#2222dd> s筛选记录 ""</FONT></P>
<P>取代</P>
<P><FONT color=#22dd22> Me.冲床总工资查询子窗体.Form.Filter = ""<BR> Me.冲床总工资查询子窗体.Form.FilterOn = False</FONT></P>
<P><FONT color=#000000>你看看,可不可以</FONT></P>
作者: goto2008 时间: 2007-7-30 03:39
<><FONT size=4></FONT></P>
<><FONT size=4>小宝，我看你还是把库上传上来给我瞄瞄吧。。。</FONT></P>
<><FONT size=4>人家我很菜的。。。</FONT></P>
<P><FONT size=4></FONT></P>
<P><FONT size=4></FONT></P>
<P><FONT size=4></FONT></P>
[此贴子已经被作者于2007-7-29 19:41:28编辑过]
作者: t小宝 时间: 2007-7-30 03:56
标题: 更改查询属性,要用到vba和ado
[attach]25550[/attach]<BR>
作者: goto2008 时间: 2007-7-30 04:55
<><STRONG><FONT face=Verdana color=#61b713></FONT></STRONG> </P>
<><STRONG><FONT face=Verdana color=#61b713 size=4>小宝大哥。</FONT></STRONG></P>
<><STRONG><FONT face=Verdana color=#61b713 size=4>非常非常的感谢你。。。。要的就是这效果。。。</FONT></STRONG></P>
<P><STRONG><FONT face=Verdana color=#61b713 size=4></FONT></STRONG> </P>
<P><STRONG><FONT face=Verdana color=#61b713 size=4></FONT></STRONG> </P>
<P><STRONG><FONT face=Verdana color=#61b713 size=4></FONT></STRONG> </P>
<P><STRONG><FONT face=Verdana color=#61b713></FONT></STRONG> </P>
作者: yori2007 时间: 2008-1-30 10:06
学习学习
作者: flijgw 时间: 2008-12-13 15:24
好好学学
作者: friendship 时间: 2008-12-13 19:55
看看小宝的方法！
作者: wen123456 时间: 2008-12-13 22:56
[:24] [:24] [:24] [:24]
| 欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |