拜托,真的没有人知道吗?使用DataReport,救救小弟

huater 2000-08-31 08:04:00
小弟还是初学VB,现在碰到一个问题,请教各位大侠:
如果要打印某个月的数据,势必应该给DataReport一个参数,然后执行相应查询,最终给出最后结果,但是我发觉只有第一次运行时是有效的,以后显示打印出来的结果就一样了。比如第一次要求打印2000/03月的数据,以后无论你给什么参数,打印的还是3月份的数据,除非退出来重新来过。
请各位大哥俳优解难,谢谢!
...全文
209 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhanghj 2000-09-04
  • 打赏
  • 举报
回复
补充一点
DataEnvironment.name=dataenv
zhanghj 2000-09-04
  • 打赏
  • 举报
回复
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload DataEnv
End Sub
wufu2000 2000-09-03
  • 打赏
  • 举报
回复
你必须每此打印完就unload 你的数据环境和报表!!
bryan 2000-09-03
  • 打赏
  • 举报
回复
退出时要关闭联结,调用时再打开联结
bryan 2000-09-01
  • 打赏
  • 举报
回复
在关闭报表时,要关闭联结,调用时再打开
Awen 2000-09-01
  • 打赏
  • 举报
回复
用一用ActiveReport吧!
playyuer 2000-09-01
  • 打赏
  • 举报
回复
1.Requery方 法 !
Private Sub DataReport_Initialize()
DataEnvironment1.rsCommand1.Requery
End Sub

2.也 可 以 直 接 使 用 ADODB.Recordset!不 使 用 DataEnvironment!例 :
...
public adoRecordsetX as ADODB.Recordset
...

Private Sub DataReport_Initialize()
adoRecordsetX.Requery
Set DataReport1.DataSource = adoRecordsetX '设 置 DataReport 的 数 据 源
...
'绑 定 某 字 段
Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name
...
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧