[求助]如何设计适合自己的文件管理器 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何设计适合自己的文件管理器

共有675人关注过本帖树形打印复制链接主题：[求助]如何设计适合自己的文件管理器

dahai

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：683 威望：0 精华：0 注册：2019/1/9 15:59:00

[求助]如何设计适合自己的文件管理器 发帖心情

Post By：2024/8/22 10:36:00 [只看该作者]

老师，您好：

我用的是阿里云服务器，现在想上传一些文件凭证，比如合同，fa piao，付款回单等。目前使用的是软件自带的文件管理器，功能很齐全，但是操作有点复杂，想自己设计一款，实现如下图所示的功能。想请教一下老师，foxtable软件支持这样的设计吗？是否有相关的教程供参考？谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：文件管理器.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/22 10:52:00 [只看该作者]

软件自带的文件管理器什么地方操作复杂！难道会比自己重新设计一个复杂！！！

相关ftp的用法参考：http://www.foxtable.com/webhelp/topics/1410.htm

dahai

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：683 威望：0 精华：0 注册：2019/1/9 15:59:00

Post By：2024/8/22 13:37:00 [只看该作者]

问题见图片，谢谢！

此主题相关图片如下：文件管理器2.png

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/22 13:42:00 [只看该作者]

如果说想跳过某个步骤，加一些自己的控制。只能使用ftpclient自己做了

dahai

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：683 威望：0 精华：0 注册：2019/1/9 15:59:00

Post By：2024/8/23 10:08:00 [只看该作者]

目的：上传完附件，想在附件列中显示已经上传的所有文件的名字，代码如下：

问题：有时候能显示，有时候不显示，请老师帮助看看是否有解决的办法？谢谢

在窗口的doubleclick设置代码为：

If e.Col.Name = "附件" Then

Dim ftp1 As New FtpClient

ftp1.Host = "*****"

ftp1.Account = "*****"

ftp1.Password = "*****"

ftp1.RenameEnabled = False '禁用重命名文件按钮

ftp1.MakerDirEnabled = False '禁用新建文件夹

If ftp1.DirExists("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "") Then

ftp1.ChangeDir("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

Else

ftp1.MakeDir("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

ftp1.ChangeDir("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

End If

ftp1.RootDir = "/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "" '设置根目录

ftp1.OpenManager()

Dim drs As List(Of String) = ftp1.GetFileList("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

Dim st As String = String.Join(",", drs.ToArray)

e.Row("附件") = st.Replace("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "/", " ")

End If

此主题相关图片如下：文件管理器3.png

[此贴子已经被作者于2024/8/23 10:11:24编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 10:31:00 [只看该作者]

不显示是指单元格里面没有内容？

1、加上cancel

If e.Col.Name = "附件" Then

e.cancel=true

Dim ftp1 As New FtpClient

……

2、调试看看

Dim drs As List(Of String) = ftp1.GetFileList("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

msgbox(drs.count)

dahai

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：683 威望：0 精华：0 注册：2019/1/9 15:59:00

Post By：2024/8/23 10:44:00 [只看该作者]

1、加上cancel

If e.Col.Name = "附件" Then

e.cancel=true

Dim ftp1 As New FtpClient

……

这种方式也是同样的情况，单元格里面有时候有内容，有时候没有

2、

Dim drs As List(Of String) = ftp1.GetFileList("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "")

MessageBox.Show(drs.Count)

隐藏此行 ' Dim st As String = String.Join(",", drs.ToArray)

隐藏此行 ' e.Row("附件") = st.Replace("/data/caigou/" & e.Row("供应商") & "" & e.Row("采购单号") & "/", " ")

单元格里面有内容，但是msgbox(drs.count) 有时候显示0，有时候显示5

此主题相关图片如下：文件管理器4.png

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 10:56:00 [只看该作者]

显示0肯定就是没有文件。看看是不是路径有问题。空内容就没有必要加双引号了

MessageBox.Show("/data/caigou/" & e.Row("供应商") & e.Row("采购单号"))

Dim drs As List(Of String) = ftp1.GetFileList("/data/caigou/" & e.Row("供应商") & e.Row("采购单号"))

MessageBox.Show(drs.Count)

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109427 积分：556791 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 10:58:00 [只看该作者]

另外，看您的网络（或者ftp服务）似乎不稳定呀，都是列表几次才成功

此主题相关图片如下：1.png

dahai

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：80 积分：683 威望：0 精华：0 注册：2019/1/9 15:59:00

Post By：2024/8/23 11:07:00 [只看该作者]

MessageBox.Show("/data/caigou/" & e.Row("供应商") & e.Row("采购单号")) ——每次会弹出固定的路径

Dim drs As List(Of String) = ftp1.GetFileList("/data/caigou/" & e.Row("供应商") & e.Row("采购单号"))

MessageBox.Show(drs.Count) ——还是会交替出现，0 和 5

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：[求助]如何设计适合自己的文件管理器