以文本方式查看主题 - 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 --
|
|
-- 作者: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 -- 没有触发事件还是? |