Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态设置文件存储位置


  共有3195人关注过本帖树形打印复制链接

主题：动态设置文件存储位置
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		动态设置文件存储位置  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/15 8:40:00 [只看该作者]

e.SubFolder = dr("作者") & "\" & dr("照片") 

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:09:00 [只看该作者]

是写在表的beforeattachfile事件中吗， 不过， 我设计的是双击表中某行打开一个窗口，窗口中有个文件管理器， 点击增加图片的， 代码应该写在哪里

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/15 9:10:00 [只看该作者]

一样会触发这个事件,就写这里

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:18:00 [只看该作者]

BIN老师， 好像没起作用

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/15 9:19:00 [只看该作者]

不会,搞不定就上例子吧

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2015/4/15 9:28:00 [只看该作者]

假定表中有三列，分别是作者、原始照片，修改图片， 希望向原始照片列，修改图片列添加文件的时候，自动根据作者创建子目录来存放文件，例如作者张三， 原始图片放在远程文件夹\PIC的子目录"张三"下， 修改图片也放在远程文件夹\PIC的子目录"张三"下， 如何修改代码呢
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/15 9:31:00 [只看该作者]

e.SubFolder = "远程路径地址\" & dr("作者") 
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/15 9:47:00 [只看该作者]

没有触发事件还是?

 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询