Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

用代码实现表字段对齐

时 间:2016-09-05 13:24:57
作 者:杜超   ID:16058  城市:江阴
摘 要:字段对齐可以通过属性来调节,也可以通过代码来实现,如下图
正 文:

点击下载此附件

 

演   示:


Private Sub 左对齐_Click()
SaveProperty CurrentDb.TableDefs("明细表").Fields("单价"), "TextAlign", dbByte, 1
Me.sfrList.SourceObject = "表.明细表"
End Sub


Private Sub 右对齐_Click()
SaveProperty CurrentDb.TableDefs("明细表").Fields("单价"), "TextAlign", dbByte, 3
Me.sfrList.SourceObject = "表.明细表"
End Sub

Private Sub 居中_Click()
SaveProperty CurrentDb.TableDefs("明细表").Fields("单价"), "TextAlign", dbByte, 2
Me.sfrList.SourceObject = "表.明细表"
End Sub



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助