以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数值列居中的代码(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27118)

--  作者:yyzlxc
--  发布时间:2012/12/22 15:08:00
--  [求助]数值列居中的代码(已解决)
在按钮代码中需设置数值型列的居中的代码,请各位老师指教,谢谢!!

Dim t As Table = Tables("当月分类")
For Each dc As DataCol In t.DataTable.DataCols
    If dc.IsNumeric Then
        代码:
    End  If
Next

如何将下面的代码移植到上面的代码中

Tables("...").Cols("...").TextAlign = TextAlignEnum.Center

[此贴子已经被作者于2012-12-22 15:26:36编辑过]

--  作者:lin_hailun
--  发布时间:2012/12/22 15:21:00
--  
 
Dim t As Table = Tables("当月分类")
For Each c As Col In t.Cols
    If c.DataCol.IsNumeric Then
        c.TextAlign = TextAlignEnum.Center
    End  If
Next

--  作者:yyzlxc
--  发布时间:2012/12/22 15:26:00
--  
谢谢lin_hailun老师的指教,问题解决,谢谢!!