ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1498|回复: 4

请高手大侠留步

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-6-3 16:45 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

请问:TextBox的Tag属性设为left 怎样做?

在下在ACCESS报表的设计视图中打开任一文本框之属性,但就是找不到Tag这个东东?????郁闷!!!!!也许是在下所知甚少啊!!!!请那位高手大侠指点一二多谢了。

TA的精华主题

TA的得分主题

发表于 2005-6-3 17:22 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-6-3 17:30 | 显示全部楼层

你找来何用?和LEFT 什么关系呀?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-6-3 18:45 | 显示全部楼层

问题: 如何在报表中为每列加一条竖线 回答: 1、在设计模式里打开该报表,把要加左竖线、右竖线的TextBox的Tag属性都改成left,把要同时加左右竖线的TextBox的Tag属性改成l__R。 2、然后,在主体的格式化事件里输入如下代码: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim a As Control For Each a In Me.Controls If a.ControlType = acTextBox And a.Tag = "left" Then Me.Line (a.Left, 0)-(a.Left, a.Height) ElseIf a.ControlType = acTextBox And a.Tag = "L__R" Then Me.Line (a.Left, 0)-(a.Left, a.Height) Me.Line (a.Left + a.Width, 0)-(a.Left + a.Width, a.Height) End If Next End Sub 4、预览报表就可以看到报表上每个文本框左右都有一条竖线,这竖线可是会随TextBox的左右、大小变化而自动修正变化的。

'以下方法展示如何用 LINE 为报表画边界 Private Sub Report_Page() Me.Line (1, 1)-(Me.ScaleWidth, Me.ScaleHeight), , B End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-6-3 19:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) 以上要注意
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 14:44 , Processed in 0.026754 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表