以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  附件文件地址路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170944)
--  作者：yifan3429
--  发布时间：2021/8/12 9:05:00
--  附件文件地址路径
这是原来的写法    
    \'DataTables("订单表").DataCols("空间设计图").DefaultFolder = dz & "订单文件"
    \'DataTables("订单表").DataCols("空间设计图").SourceFolder= "D:\\"
    \'
    \'DataTables("订单表").DataCols("原始户型图").DefaultFolder = dz & "订单文件"
    \'DataTables("订单表").DataCols("原始户型图").SourceFolder= "D:\\"
    \'
    \'DataTables("订单表").DataCols("产品定位图").DefaultFolder = dz & "订单文件"
    \'DataTables("订单表").DataCols("产品定位图").SourceFolder= "D:\\"

想换成下面的写法  怎么组织好  搞不通了
Select Case e.DataCol.Name 
        Case "空间设计图","原始户型图","产品定位图"
            e.DataCol.DefaultFolder = dz & "订单文件"
           e.DataCol .SourceFolder= "D:\\"
    End Select
--  作者：有点蓝
--  发布时间：2021/8/12 9:33:00
--  
只能使用原来的用法，不能放到表事件处理，要优化也只能这样

dim  str() as string = {"空间设计图","原始户型图","产品定位图"}
for each s as string in str
DataTables("订单表").DataCols(s).DefaultFolder = dz & "订单文件"
DataTables("订单表").DataCols(s).SourceFolder= "D:\\"
next