以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  重复的代码 怎么合集简单呢 求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49872)
--  作者：yifan3429
--  发布时间：2014/4/25 10:16:00
--  重复的代码 怎么合集简单呢 求助
Select Case e.DataCol.Name
        Case "A空间_效果1"
            e.SubFolder = dr("产品风格") & "\\" & dr("空间") & "\\效果图"
        Case "A空间_效果2"
            e.SubFolder = dr("产品风格") & "\\" & dr("空间") & "\\效果图"
        Case "A空间_效果3"
            e.SubFolder = dr("产品风格") & "\\" & dr("空间") & "\\效果图"
--  作者：有点甜
--  发布时间：2014/4/25 10:17:00
--  
Select Case e.DataCol.Name
        Case "A空间_效果1", "A空间_效果2", "A空间_效果3"
            e.SubFolder = dr("产品风格") & "\\" & dr("空间") & "\\效果图"
--  作者：Bin
--  发布时间：2014/4/25 10:17:00
--  
Select Case e.DataCol.Name
        Case "A空间_效果1", "A空间_效果2", "A空间_效果3"
            e.SubFolder = dr("产品风格") & "\\" & dr("空间") & "\\效果图"
--  作者：Bin
--  发布时间：2014/4/25 10:17:00
--  
http://www.foxtable.com/help/topics/0224.htm
--  作者：yifan3429
--  发布时间：2014/4/25 10:56:00
--  
谢谢两位老师的指导