Foxtable(狐表)用户栏目专家坐堂 → FileManager的问题


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

主题:FileManager的问题

帅哥哟,离线,有人找我吗?
HappyFt
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
FileManager的问题  发帖心情 Post By:2014/11/26 10:34:00 [显示全部帖子]

FileManager不能单独使用,必须绑定字段。 帮助中这样说。

 

窗口中有一个FileManager控件,但表中没有列绑定到它上面,只是想从ftp服务器上搜索到某个名称开头的所有文件显示在里面

 

       ftp1.Changedir("Files\File")
        Dim fls As List(of String)
        fls = ftp1.GetFileList("A001.*") '集合以A001开头的所有文件
        If fls.count > 0 Then
            Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
            For Each fl As String In fls
                flm.AddFile(fl)
            Next
        End If

 

ftp服务器是正常可以连接的,上面的代码不可以吗?那要怎么办才能实现我说的功能

 

谢谢!

 


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 10:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:360截图20141126-1.jpg
图片点击可在新窗口打开查看

 

比如切换到A001,就会将ftp上指定目录下的以A001开头的文件如:A001.pdf,A001.doc等显示在那个控件中,用户双击某个就可以打开它了。


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 10:52:00 [显示全部帖子]

但是我这些文件通过菜单上的按钮由专人直接传到ftp上的,其他用户浏览表时只要能显示文件来即可,并不修改表。

表中如果设置一列绑定的话,还得要给那列赋值,这样切换不同行时表就变成修改过的状态了。


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 14:34:00 [显示全部帖子]

表事件datarowchanged的代码改成下面还是不行:

在表中增加了附件列邦定到控件了。

Dim  ftp1 As New FtpClient
ftp1.Host = ftp_Host
ftp1.Account = ftp_User
ftp1.Password = ftp_Pwd
ftp1.Changedir("YJXNY\photo")

ftp1.Changedir("YJXNY\File")
Messagebox.Show("当前目录: " & ftp1.Currentdir)  '这里显示出来为什么还是"/YJXNY/photo",目录切换不过来

Dim fls As List(of String)
fls = ftp1.GetFileList("A-001.*") '集合以A-001开头的所有文件
If fls.count > 0 Then
    Dim lst As New List(of String)
    For Each fl As String In fls
        lst.Add(fl)
    Next
    e.Table.Current.DataRow.Lines("附件") = lst
End If

 

上面的代码哪里不对?谢谢!



 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 15:55:00 [显示全部帖子]

以下是引用有点甜在2014-11-26 11:07:00的发言:
 呃,你可以绑定给一张空的表、空的列,反正必须绑定一列,并赋值,才能有内容。
[此贴子已经被作者于2014-11-26 11:06:42编辑过]

原来真的是斜杠反了,帮助中有ftp1.Changedir("\photo")误会了,这个斜杠是根目录的意思吧?

 

绑定到一个空表,空列这个感觉好奇怪啊,

只好在一个临时表中增加一附件列来绑定,不过功能总算实现了。


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 19:03:00 [显示全部帖子]

还有一个问题,就是在本地打开Filemanager中的某个文件时会自动下载到本地下次就直接从本地读取,那ftp远程中的一个文件更新了,怎么办?难道每次赋值到表中的绑定列时都要遍历每一个文件,然后与ftp上的同名文件来比较吗?这样似乎很繁琐,有影响网速,有没有其他办法?谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1911 积分:17026 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2014/11/26 20:01:00 [显示全部帖子]

因为窗口表是动态加载的sqltable,不知道这个自动更新文件的代码怎么写? 

DataTables("合同").DataCols("文档").ExtendType = ExtendTypeEnum.FILES
DataTables(
"合同").DataCols("文档").Remote = True

。。。


 回到顶部