点击下载此附件

 

演   示:

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