预览报表和导出excle显示子窗体筛选后的数据

fller00

请大家帮忙看一下我的预览和导出的语句错在哪里呢？想让预览报表和导出excle这两个命令显示的是子窗体筛选后的数据。我用了两种方法，都不能实现，这个问题困扰了偶好久啦。

    刘晓军的建立参数查询，根据查询建报表和子窗体的例子我看了，方法有些弊端，还是没有用那个方法，偶诸般尝试，更加混乱了。。。。。。。。

zx994398

你的数据库事件已经很好了，稍作调整

1.报表事件：docmd.openreport "报表名",acViewPreview, , Me.子窗体名.Form.Filter

2.用excle导出

我的方法是参照报表事件：（写的时候有提示，应该看得懂）

docmd.openform "子窗体名",acNormal, , Me.物业收费明细表子窗体.Form.Filter（打开筛选后的子窗体）


DoCmd.OutputTo acOutputForm, "子窗体名", "*.elx"（不要copy，里面有参数要加的，比如导出的路径，是否自动运行exl文件等）


DoCmd.Close（关闭子窗体）

试试吧？

sdzpsf2008

我也正遇到此类问题

zyz218

GOOD!!!这样更好：

Private Sub cmdout_Click()
On Error GoTo Err_cmdout_Click


    DoCmd.OpenForm "infodisplay_sub", acNormal, , infodisplay_sub.Form.Filter
    Forms!infodisplay_sub.Visible = False
    DoCmd.OutputTo acOutputForm, "infodisplay_sub", , , True
    DoCmd.Close


Exit_cmdout_Click:
    Exit Sub
Err_cmdout_Click:
    MsgBox Err.Description
    Resume Exit_cmdout_Click
End Sub

[此贴子已经被作者于2007-3-13 13:23:11编辑过]