Dim sect, ctl
For Each sect In DataReport1.Sections
For Each ctl In sect.Controls
select case ctl.Name
case "..."
end select
MsgBox ctl.Caption
Next ctl
Next sect
这个问题以前出现过.
For Each sect In DataReport1.Sections
For Each ctl In sect.Controls
select case ctl.Name
case "..."
end select
MsgBox ctl.Caption
Next ctl
Next sect
这个问题以前出现过.
解决方案 »
- VB6.0 怎么在Picture1里 Print 特殊字符?
- vb 打开出现error during load 问题
- 如何将一个已知文字添加到任何一个已获焦点的文本框的当前光标之后
- CommonDialog.ShowFont问题
- 如何实现对文本文件的内容进行搜索?
- flash的自动播放问题
- 如何实现通信及误码率测算
- 请问 类似QQ的截图功能(视频)VB怎么实现?
- 在线等待:找一个API函数wRegister
- 《超简单的问题》VB的Function如何返回一个数组类型?(在线等待)
- 如何解决VB5.0和sybase通过odbc连接、使用的问题?急急急!
- 请问我想定义量了窗口,点击其中一个窗口则另一个窗口出现,前一个窗口消失.并且在后一个窗口的text1.text中输入一个常数,在第二个窗口中的text1.text中输出,应如何实现? 我使用vb.
Me.Sections.Item("Section5").Controls.Item("Label1").Caption="XXX"
好了,一切搞定