Select Case e.DataCol.Name
Case "客户色板"
e.SubFolder = e.DataRow("客户名称") & "\" & e.DataRow("终端客户")& "\" & "1.客户色板" & "\"& Format( date.Today,"yyyy-MM-dd")&"\"
SystemReady = True
Case "设计图"
e.SubFolder = e.DataRow("客户名称") & "\" & e.DataRow("终端客户")& "\" & "2.设计图纸" & "\"& Format( date.Today,"yyyy-MM-dd")&"\"
SystemReady = True
Case "基层图"
e.SubFolder = e.DataRow("客户名称") & "\" & e.DataRow("终端客户")& "\" & "3.基层图绘" & "\"& Format( date.Today,"yyyy-MM-dd")&"\"
SystemReady = True
Case "效果图"
e.SubFolder = e.DataRow("客户名称") & "\" & e.DataRow("终端客户")& "\" & "4.效果图" & "\"& Format( date.Today,"yyyy-MM-dd")&"\"
SystemReady = True
Case "客户资料"
e.SubFolder = e.DataRow("客户名称") & "\" & e.DataRow("终端客户")& "\" & "5.客户来件" & "\"& Format( date.Today,"yyyy-MM-dd")&"\"
SystemReady = True
End Select
End If
原来在局域网用这个，当前使用的FTP 那么这个代码就貌似失效 如何解决呢
加好友 
发短信
Post By：2016/9/28 11:32:00 [只看该作者]
