使用activereports控件打印后，在更新数据源后，无法更新数据.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 11 行

每 次 调 用 完 后 ， 用 set Activereport1=nothing 就 可 以 让 它 下 一 次 执 行 时 重 新 初 始 化 数 据 源 。 
<END>    
我 曾 经 碰 过 类 似 的 问 题 ， 在 ActiveReport.PrintReport True前 加 上 一 句 ActiveReport.Restart 即 可 。 例 如 ： 
     ActiveReport.Restart 
     ActiveReport.PrintReport True 
<END>    
如 果 你 用 ODBC,我 倒 有 个 比 较 好 的 办 法 .在 activereport报 表 中 选 RDOdatacontrol,在 DataSourceName填 odbc名 ,然 后 在 reportstart中 写 (示 例 ): 
     sSUR = "Select * from employees Where " + sSQL + " Order by empid" 
     dc1.SQL = sSUR 
    其 中 sSQL为 一 公 共 变 量 ,你 可 以 作 为 任 意 条 件 的 组 合 ,dc1为 RDOdatacontrol控 件 名 .这 样 既 可 以 随 时 提 取 Update后 的 数 据 ,又 能 做 到 任 意 条 件 的 查 询 ! 
<END>