以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  帮忙缩写语句  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99430)

--  作者：hnguang --  发布时间：2017/4/19 11:15:00 --  帮忙缩写语句 窗口table控件,指定列居中 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 Tables("采购单详情_采购单详情表").Cols("采购单价").TextAlign = TextAlignEnum.Center Tables("采购单详情_采购单详情表").Cols("交货数量").TextAlign = TextAlignEnum.Center Tables("采购单详情_采购单详情表").Cols("采购数量").TextAlign = TextAlignEnum.Center Tables("采购单详情_采购单详情表").Cols("产品规格").TextAlign = TextAlignEnum.Center 以上有没有简写方法

--  作者：hnguang --  发布时间：2017/4/19 11:39:00 --   for each c as col in Tables("采购单详情_采购单详情表").Cols c.TextAlign = TextAlignEnum.Center next 自已参考学习搞定