vb 中报表问题！！

Question

YourReport.Sections (index).Controls ("name").Caption="This is test"

Answer 1

zeng_zhh(紫河)　
 先谢谢了！
那个controls("name")中的name 是什么 ？是我那要放如变量LABEL 的名字，还是什么呢？？

Answer 2

DataReport的内容不随数据库的内容变化
    Requery方 法 ! 
    也 可 以 直 接 使 用 ADODB.Recordset!不 使 用 DataEnvironment!例 : 
    ... 
     public adoRecordsetX as ADODB.Recordset 
    ... 
     
     Private Sub DataReport_Initialize() 
     adoRecordsetX.Requery 
     Set DataReport1.DataSource = adoRecordsetX '设 置 DataReport 的 数 据 源 
     ... 
     '绑 定 某 字 段 
     Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name 
     ... 
     End Sub 
    wuxiaoqiang的 意 见 ： 
    在 你 们 有 关 上 述 问 题 的 回 答 ， 我 想 再 增 加 一 种 更 简 单 的 解 决 办 法 。 
     1.在 datareport 报 表 中 设 置 datamember和 datasource为 空 。 
     2.将 以 前 绑 定 的 RptTextBox的 datamember设 为 空 ， 保 留 原 来 的 datafield. 
     3.在 打 印 操 作 中 增 加 以 下 代 码 ： 
     Dim db As Connection 
     Set db = New Connection 
     db.CursorLocation = adUseClient 
     db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.path + "\finance.mdb" + ";" 
     
     Set tb = New Recordset 
     tb.Open "select * from dailyfeeprint", db, adOpenStatic, adLockOptimistic 
     With tb 
     
     .AddNew 
     ![工 号 ] = Combo1(0).Text 
     ![姓 名 ] = txtFields(0).Text 
     ![交 费 日 期 ] = txtFields(1).Text 
     ......... 
     .Update 
     End With 
     
     Set data1.Recordset = tb 
     
     Set datareport1.DataSource = data1 
     datareport1.Show 
     datareport1.PrintReport 
    其 实 这 个 问 题 也 搞 得 我 很 头 疼 ， 希 望 能 让 其 他 人 不 再 头 疼 。 
    herycom的 意 见 ： 
    直 接 Requery 一 下 就 可 以 了 。 
    Private Sub DataReport_Initialize() 
     DataEnvironment1.rsCommand1.Requery 
    End Sub 

Answer 3

liqinger184(沧桑)　
那个controls("name")中的name 是什么 ？是我那要放如变量LABEL 的名字，还是什么呢？？  
就是那個妳要放變量的Ｌabel的名字,也可以用Controls(index)使用,但這個方法不好用而已.

Answer 4

　zeng_zhh(紫河)　
 
也许是我太蠢了吧！我现在还没有搞清楚，为什么我调用报表的时候总是说找不到那个OBJECT对象呢？你能不能够跟说个看看。 假如：我要在页标头中加一个LABEL标题框。LABEL框的内容是可以变化的，那么我怎么搞呢？
我如果象你说的，我在哪个事件里进行这个事件呢？ 不知道为什么总是错！！！谢谢了！