以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态设置文件存储位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66857)

--  作者:seal51
--  发布时间:2015/4/15 0:39:00
--  动态设置文件存储位置
假定表中有两列列,分别是作者、照片,希望向照片列添加文件的时候,自动根据作者创建子目录来存放文件,例如作者张三拍摄的照片存放在
远程文件夹\\PIC的子目录"张三"下:
Dim ftp1 As New FtpClient
ftp1.Host="115.29.38.211"
ftp1.Account = "tuftp"
ftp1.Password = "11111111"


Dim dr As DataRow = e.DataRow
If dr.IsNull("作者") Then
    MessageBox.Show("作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("作者") & "\\" & dr("") 
End If

如何写,不会了?

--  作者:Bin
--  发布时间:2015/4/15 8:40:00
--  
e.SubFolder = dr("作者") & "\\" & dr("照片") 
--  作者:seal51
--  发布时间:2015/4/15 9:09:00
--  
是写在表的beforeattachfile事件中吗, 不过, 我设计的是双击表中某行打开一个窗口,窗口中有个文件管理器, 点击增加图片的, 代码应该写在哪里
--  作者:Bin
--  发布时间:2015/4/15 9:10:00
--  
一样会触发这个事件,就写这里
--  作者:seal51
--  发布时间:2015/4/15 9:18:00
--  
BIN老师, 好像没起作用
--  作者:Bin
--  发布时间:2015/4/15 9:19:00
--  
不会,搞不定就上例子吧
--  作者:seal51
--  发布时间:2015/4/15 9:28:00
--  
假定表中有三列,分别是作者、原始照片,修改图片, 希望向原始照片列,修改图片列添加文件的时候,自动根据作者创建子目录来存放文件,例如作者张三, 原始图片放在远程文件夹\\PIC的子目录"张三"下, 修改图片也放在远程文件夹\\PIC的子目录"张三"下, 如何修改代码呢

--  作者:Bin
--  发布时间:2015/4/15 9:31:00
--  
e.SubFolder = "远程路径地址\\" & dr("作者") 


--  作者:seal51
--  发布时间:2015/4/15 9:42:00
--  
我在窗口里用的是文件管理器FileManager, 

Dim ftp1 As New FtpClient
ftp1.Host="115.29.38.211"
ftp1.Account = "tuftp"
ftp1.Password = "11111111"
ftp1.port = 20

用Dim ftp1 As New FtpClient 还是Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")??

--  作者:Bin
--  发布时间:2015/4/15 9:47:00
--  
没有触发事件还是?