**********lihonggen0(用VB)*****************请指点一下

Question

'打印过程 [窗体打印按钮]
    With Rs_Report_ls     '一个记录集
        .ActiveConnection = adoCN
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "select gbdm,gbmc from GbSp_bssggb"    '从数据库中提数据
        .Open
   end with
   DataEnvent.rsgbsp_bssg.Requery    '数据环境刷新
   Set R_GbSp_Bssg.DataSource = DataEnvent   '设置报表数据源
   R_GbSp_Bssg.PrintReport             '打印报表
'************请检查你的数据环境设置以及报表时字段是否正确*************

Answer 1

大哥，我用的是ｄａｔａ控件，不是ａｄｏ（很惭愧，我暂时还不会）。在DataEnvironment中会出现一个CONNECTION1，选中它按右键选[属性]，连接到我所需要的数据库。连好后，再选择右键，选[添加命令]，可选择我要的表。然后在datareport中选择绑定了数据库。
我是这样做的。
打印按纽的全部代码如下：Private Sub Command2_Click()
  DataReport1.Show
DataReport_Initialize
Form1.Enabled = TrueEnd Sub
Private Sub DataReport_Initialize()
     DataEnvironment1.rsCommand1.Requery
     
End Sub打印按纽的代码就这些，ｄａｔａｒｅｐｏｒｔ和ＤａｔａＥｎｖｉｒｏｎｍｅｎｔ都是我用工程菜单中的添加　ｄａｔａｒｅｐｏｒｔ　和添加ｄａｔａ　Ｅｎｖｉｒｏｎｍｅｎｔ做出来的，没有写代码？
数据库是在ｄａｔａ　Ｅｎｖｉｒｏｎｍｅｎｔ中设置的。

Answer 2

Datareport的datascource设置为DataEnvironment1
            datamember设置为rsCommand1
字段都放在细节里
将工程的启动对象设置为Datareport，运行

Answer 3

在我的测试中 win98 vb6 sp5
运行正常