我使用datareport編寫一個報表,數據源採用vb的數據環境,現在想在form中通過程序來控制報表中顯示的字段,不用太複雜的手段,就想把visible改變就可.
看了以前部分人寫的程序,在自己系統中測試就是過不了,請高人看看是為什麼?代碼如下
datareport1.Sections(1).Controls.Item("label1").Visible = True
or
datareport1.Sections(1).Controls("label1").Visible = True兩個都試過了, 可還是不通過, 郁悶!
看了以前部分人寫的程序,在自己系統中測試就是過不了,請高人看看是為什麼?代碼如下
datareport1.Sections(1).Controls.Item("label1").Visible = True
or
datareport1.Sections(1).Controls("label1").Visible = True兩個都試過了, 可還是不通過, 郁悶!
解决方案 »
- vb6运行库中的文件 stdole2.tlb 如何手工注册呀。用regsvr32.exe无法注册呀,提示不是.dll 或 .ocx
- ADO的字符集转换问题,网上没有答案,期待解决方法!
- vb的 自然数无限阶乘 怎样实现啊 用数组 或者 字符串都行
- 帮忙看一下下面代码,用installshield9.0打包程序,在安装同时执行一个外部exe程序,总是出错。
- 大虾,请问VB如何获得当前类的名称?谢谢!
- 删除文件的API,不提示是否删除而直接将文件删除,谢谢
- 简单问题:用line函数有办法画出椭圆吗?
- >>>>>>>>>如何用installshield6.1打包使用了ado的vb工程????!!!
- IE 的关闭浏览图像设置怎样进行?
- 请教高手!如何在vb中创建PowerPoint对象同时用于OFF97和OFF2000?
- VB自動設置打印機!在線等﹐解決立即結貼!
- help?!
page header是2
detail是3
顺序往下数
With DataReport1
.Sections(4).Controls("Label2").Caption = "共%P页第%p页"
.Sections(2).Controls("label3").Caption = "打印日期:%d %t"'.Sections(3).Controls("Text1").DataMember = objrs.DataMember
.Sections(3).Controls("Text1").DataField = "ziduan1"
.Sections(3).Controls("Text2").DataField = "ziduan2"
.Sections(3).Controls("Text3").DataField = "ziduan3"
End With