用代码实现表字段对齐

时　间: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