为什么vb6的DataReport在更改了数据库之后不能刷新呢？

Question

你更新什么呢?
应该是更新adodc.recordset,然后打印应该没问题!

Answer 1

Private Sub DataReport_Terminate()
   Unload DataEnv
End Sub

Answer 2

查看一下以前的帖子。
关于打印刷新的问题
  '  数据环境初始化
Private Sub DataEnvironment_Initialize()
    DataEnv.Cnc_Unit.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\unit1.mdb;Persist Security Info=False;Jet OLEDB:Encrypt Database=True"
    DataEnv.Cnc_Unit.Open
    DataEnv.Cnt_User.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\YH_user.mdb"
    DataEnv.Cnt_User.Open
End Sub  '  报表打印
Private Sub mnuFilePrintPreview_Click()
    '  打印报表  <<必须生成记录集>>
    If DataEnv.rsCmd_unit.State = adStateOpen Then DataEnv.rsCmd_unit.Close
    DataEnv.Commands("Cmd_unit").CommandText = "select " & TableName & ".* from " & TableName
    DataEnv.Cmd_unit
    DtaRpt_unit.Refresh
    DtaRpt_unit.Show
End Sub其他可在设计时完成！