每 次 調 用 完 后 ， 用 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>