以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于文件存放到局域网共享文件夹的请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50902)
--  作者：zyg719
--  发布时间：2014/5/15 10:27:00
--  关于文件存放到局域网共享文件夹的请教

我在表事件中设置

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工程图纸"
 If Dr.IsNull("站名") Then
        MessageBox.Show("站名不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    Else
        e.SubFolder ="\\\\192.168.1.250\\XXX\\" & dr("站名") & "\\工程图纸"
    End If
在从上传文件后，还是存到项目本地目录里了，形成一个192.168.1.250\\XXX\\站名\\工程图纸\\的目录
--  作者：Bin
--  发布时间：2014/5/15 10:32:00
--  
这个是存放得文件目录,而不是根目录

你要设置的是datatables(X).DataCols(X).DefaultFolder 

或者在列属性中设置
--  作者：zyg719
--  发布时间：2014/5/15 11:24:00
--  

大侠，干脆帮我代码修改下好吧，我还弄不好
--  作者：Bin
--  发布时间：2014/5/15 11:25:00
--  
在列属性中设置存放目录为 "\\\\192.168.1.250\\XXX\\"

或者在ALteropenPROJECT事件 设置datatables(X).DataCols(X).DefaultFolder ="\\\\192.168.1.250\\XXX\\"

再用  e.SubFolder = dr("站名") & "\\工程图纸"