关于ACCESS中报表标题的设置问题。婷婷在此向各位大哥大姐求救了~~~

Question

各位XDJM，老板要求我改一个bug，可是真得好难啊！实在解决不了了。求好心人多多帮忙。vb的form中让用户输入检索部门编号，然后通过vb程序从后台计算出该部门的数据后，把数据写入access，并用里面的report表示出来。现在数据检索、写入、表示都没有问题。问题出在报表的标题上，要求把检索的部门编号作为label表示出来，可是无论程序如何设置，就是表示不出来。急死人了~~~代码如下：请帮我看看错在哪里
.....
Set objAcc = CreateObject("Access.Application.11")   '11 = access2003
objAcc.OpenCurrentDatabase G_AccPath & "BuMen.mdb"
objAcc.DoCmd.OpenReport strRptNM, acViewDesignWith objAcc.Reports("部门报表")
        .Controls("lbl_BumenCD").Caption = txt_BumenCD(0).Text  '设置检索的部门号，可惜运行完看不到设置的结果
End WithobjAcc.DoCmd.Close acReport, strRptNM, acSaveYes小妹我的机器环境是:vb6 + access2003 +winxp

Answer 1

谢谢yangjava1((刺在背上)) 。真的没有英雄来救美吗？

Answer 2

to  hdhai9451(新新人类)是字符串啊！在整段程序执行完后，通过调试窗口，看到“部门”这个label的标题确实是给替换掉了。可是报表显示后，还是替换前的标题。问题就在这里呀。我甚至把标题人为的设置成"123","abc"之类的常量，结果还是不能替换掉。我苦啊！继续等待我的SuperMan...

Answer 3

在窗体里的打印按钮中写入
   DataReport1.Sections(1).Controls("Label1").Caption = dwbm 'dwbm为单位编码变量
      DataReport1.Show然后在报表设计器中放置RptLable控件，名为Label1在DataEnvironment1中的代码写入Private Sub DataEnvironment_Initialize()
  DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\库存管理.mdb;Persist Security Info=False"
End Sub
试试看，

Answer 4

DataReport1.Sections(1).Controls(1).Caption = txt_BumenCD(0).Text
sections()是表示你这个标题是放在那里,如细节,报表标头
controls()是表示你画这个控件是第几下画的,如是在报表上最写画它就是1,如画了别的在画它那就数一写看画它的时候是几

Answer 5

楼上两位达人：
使用Sections后，结果还是不能改变。在调试的时候，确实看到这个label的caption给改变了。而且也保存了，可是最后显示的时候，还是改不了。无限郁闷中

Answer 6

试下在填充后加上这停顿
DoEvents

Answer 7

With objAcc.Reports("部门报表")
        .Controls("lbl_BumenCD").Caption = txt_BumenCD(0).Text  '设置检索的部门号，可惜运行完看不到设置的结果
End With
你在后面在加上个   .refresh 方法,看看

Answer 8

楼上2位好心人：你们说的方法我都尝试过了。
DoEvents方法：执行完没效果
.refresh方法：没有此方法继续求教。

Answer 9

access里面的程序如何写没怎么研究过。
无法帮忙啊。

Answer 10

Vansoft：你的说法可行，但老板不允许。呜呜呜呜......

Answer 11

不哭，乖，借個肩膀給你。
把東西發給我，我看看先。msn: [email protected]

Answer 12

Vansoft：太大了，发不过来！那个access文件竟然有35M大。唉...

Answer 13

ACCESS的工具菜單裏有壓縮修復數據庫的子菜單，
運行一下，你會發現，哇！旺仔小鏝頭！

Answer 14

哈哈，问题还是我自己解决了！！！问题出在objAcc.DoCmd.Close acReport, strRptNM, acSaveYes这句话上。把它注释掉就正常了。我也不知道为啥不正确...盼望达人给个明确的说法