如何用代码设置VB报表里的 Label 控件的 Caption 属性???

dingdangy 2002-03-09 11:48:39
没有办法直接用这样的语句实现:DataReport1.Label1.Caption = "姓名"
不知道那位高手可以解决的。
...全文
439 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
wgku 2002-03-09
  • 打赏
  • 举报
回复
UP
wskshun 2002-03-09
  • 打赏
  • 举报
回复
你用什么做报表?
newchar 2002-03-09
  • 打赏
  • 举报
回复
dim ctl,sect as object

for each sect in datareport.sections
for o in sect.controls
select case typename(o)
case "rptLabel"
o.caption="your request"
case ...
end select
next
next sect
sunnycai 2002-03-09
  • 打赏
  • 举报
回复
StrSQL = "Select * from Table where ID= " & mRepID
Set rs3 = New ADODB.Recordset
rs3.Open StrSQL, cnnDB, adOpenKeyset, adLockOptimistic
Set Report.DataSource = rs3
Report.Orientation = rptOrientLandscape '设报表的方向为横向
Report.Sections("Sections1").Controls("Label1").Caption = "姓名" '设报表的label1显示姓名。
royvb 2002-03-09
  • 打赏
  • 举报
回复
同意楼上的!
gump2000 2002-03-09
  • 打赏
  • 举报
回复
DataReport1.Sections("Title").Controls("TimeLbl").Caption = "测试"

只要知道Sections与Label的名称就可以控制了。
TechnoFantasy 2002-03-09
  • 打赏
  • 举报
回复
SammyXu(我编程,纯属无奈)
的思路是对的,好像是:

dim x
for each x in datareport1.sections
'判断x是否为label控件
'判断x的name属性是否是label1
'赋值
next x
SammyXu 2002-03-09
  • 打赏
  • 举报
回复
好象需要指定section,你自己试试
TechnoFantasy 2002-03-09
  • 打赏
  • 举报
回复
好像不能直接用你上面的代码,因改用遍历的方法访问报表里面的控件的标题。代码前面的帖子有,你可以找一下。

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧