以文本方式查看主题

-  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=75938)
--  作者：lake163
--  发布时间：2015/10/18 9:34:00
--  设置多个列同一属性时如何简化
不知在帮助指南还是在哪里，看到过设置多个列的同一属性时，如属性值相同时，将多条代码简化成一条写的。
比如：

   DataTables("基本信息").DataCols("列A").DefaultFolder = 数据连接串 & "资料\\"

    DataTables("基本信息").DataCols("列B").DefaultFolder =  数据连接串 & "资料\\"

    DataTables("基本信息").DataCols("列C").DefaultFolder = 数据连接串 & "资料\\"

    DataTables("基本信息").DataCols("D").DefaultFolder = 数据连接串 &  "资料\\"

好象是合并成：    DataTables("基本信息").DataCols("A")DataCols("B")DataCols("C")DataCols("D").DefaultFolder = 数据连接串 &  "资料\\"


想问：（1）是否可以这样写，如何写？

（2）哪此场合可以这样做？

（3）代码效率与分开写有区别吗？


[此贴子已经被作者于2015/10/18 9:34:24编辑过]
--  作者：大红袍
--  发布时间：2015/10/18 10:23:00
--  

没有你这种写法。最多是循环。

 

Dim cs() As String = {"A", "B", "C"}
for each c as string in cs
    DataTables("基本信息").DataCols(c).DefaultFolder = 数据连接串 & "资料\\"
Next

 
--  作者：lake163
--  发布时间：2015/10/18 10:59:00
--  
那有可能是我记错了。