想在VB中改变报表的字段，可以吗？

打印时有两个字段不动，其他的要变动，请问怎么实现？ 问题点数：50、回复次数：3Top

1 楼xieminghua（小明）回复于 2004-11-03 20:57:46 得分 0

我用的是水晶报表Top

2 楼laoQ（知秋之叶）回复于 2004-11-04 01:34:19 得分 0

VB的自带的报表功能，，  
  不够灵活，，  
  个人观点，，  
  可用水晶报表Top

3 楼vbman2003（家人）回复于 2004-11-04 11:16:10 得分 50

运行VB，选择“工程＿引用”命令，引用   Microsoft   ActiveX   Data   Objects   2.5   Library   .不要用DATA   ENVIRMENT，直接添加DataReport，在上面布置好相应的控件，DataReport中添加代码：　  
   
  Private   Sub   DataReport_Initialize()  
          Dim   cn   As   ADODB.Connection  
          Dim   rs   As   ADODB.Recordset  
          Dim   Sql   As   String  
          Dim   x,   y,   z  
           
  '连接数据库(Access)  
          Set   cn   =   New   ADODB.Connection  
          cn.Open   "Provider=Microsoft.Jet.OLEDB.4.0   ;"   &   _  
                          "Data   Source="   &   App.Path   &   "\db1.mdb;"   &   _  
                          "Persist   Security   Info=False"  
  '给查询字段赋值  
          x   =   "id"  
          y   =   "iName"  
          z   =   "iCode"  
           
  '打开记录集  
          Set   rs   =   New   ADODB.Recordset  
          Sql   =   "select   "   &   x   &   ","   &   y   &   ","   &   z   &   "   from   tb   where   id='"   &   Trim(frmDialog.txtID.Text)   &   "'"  
          rs.Open   Sql,   cn,   adOpenKeyset,   adLockOptimistic  
           
  '设置text控件属性  
          DataReport.Sections("Section1").Controls("text1").DataField   =   x  
          DataReport.Sections("Section1").Controls("text2").DataField   =   y  
          DataReport.Sections("Section1").Controls("text3").DataField   =   z  
   
          Set   DataReport.DataSource   =   rs  
  End   Sub  
   
   
  Top

相关问题

• 字段
• sql
• datareport
• datafield
• adodb
• section
• dim
• cn
• rs
• controls

• 帖主：xieminghua
• vbman2003

• Visual Basic类图书
• Visual Basic类源码下载