专家坐堂-[求助]设置列居中的简洁代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]设置列居中的简洁代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178183)

--  作者：Cloud
--  发布时间：2022/6/22 10:21:00
--  [求助]设置列居中的简洁代码

大师：
下面这段代码怎么写更简洁一些
Tables("工序分析_工序主表").Cols("台产").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("订单数量").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("单量系数").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("接单价").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("加工费").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("目标工价").TextAlign = TextAlignEnum.Center
Tables("工序分析_工序主表").Cols("生产工价").TextAlign = TextAlignEnum.Center
谢谢

--  作者：有点蓝
--  发布时间：2022/6/22 10:25:00
--

For Each s As String In {"台产", "订单数量",......}
  Tables("工序分析_工序主表").Cols(s).TextAlign = TextAlignEnum.Center
Next

--  作者：Cloud
--  发布时间：2022/6/22 17:38:00
--
谢谢