- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] ftp 显示List的速度太慢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72717)
-- 发布时间：2015/8/5 9:42:00
-- [求助] ftp 显示List的速度太慢
请教一下:能否由下图中的1 直接跳到 3 ? 因为步骤2 在产生list的时候 速度太慢了. 我用3G网卡测试过 经常会卡死.
此主题相关图片如下：2015-08-05_093648.jpg
-- 发布时间：2015/8/5 9:53:00
--
BeforeAddFile 事件
If e.DataCol.name = "第十列" Then
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName))
e.DataRow("第十列") &= iif(e.DataRow("第十列")>"", vbcrlf, "") & FileSys.GetName(dlg.fileName)
End If
End If
e.cancel = True
End If
-- 发布时间：2015/8/5 10:28:00
--
速度很快 ,很爽, 不过选择一个文件后马上出现错误, 然后 ,又弹出那个ftp list窗口
[此贴子已经被作者于2015/8/5 10:32:13编辑过]
-- 发布时间：2015/8/5 10:37:00
--
学习。
-- 发布时间：2015/8/5 10:49:00
--
以下是引用coch2004在2015/8/5 10:28:00的发言：
速度很快 ,很爽, 不过选择一个文件后马上出现错误, 然后 ,又弹出那个ftp list窗口
速度很快 ,很爽, 不过选择一个文件后马上出现错误, 然后 ,又弹出那个ftp list窗口
[此贴子已经被作者于2015/8/5 10:32:13编辑过]
我，测试没有问题。
-- 发布时间：2015/8/5 15:30:00
--
If e.DataCol.name = "第十列" Then \' 这一列有特别的设置要求吗?
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient \'这一列有特别的设置要求吗?
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName))
e.DataRow("第十列") &= iif(e.DataRow("第十列")>"", vbcrlf, "") & FileSys.GetName(dlg.fileName)
End If
End If
e.cancel = True
End If
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient \'这一列有特别的设置要求吗?
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName))
e.DataRow("第十列") &= iif(e.DataRow("第十列")>"", vbcrlf, "") & FileSys.GetName(dlg.fileName)
End If
End If
e.cancel = True
End If
If e.DataCol.name = "图片1" Then
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient
If ftp.Upload(dlg.FileName, "/" & FileSys.GetName(dlg.fileName)) = True Then
Msgbox("ok") 不会弹出这个
Else
Msgbox("ng") 也不会弹出这个
End If
End If
e.cancel = True
End If
If e.DataCol.name = "图片1" Then
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp As ftpclient = e.DataCol.FTPClient
Msgbox(ftp.CurrentDir) 也不会弹出这个
End If
e.cancel = True
End If
此主题相关图片如下：2015-08-05_152843.jpg
[此贴子已经被作者于2015/8/5 15:35:48编辑过]
-- 发布时间：2015/8/5 15:36:00
--
这句代码有问题
Dim ftp As ftpclient = e.DataCol.FTPClient
你此列设置好列属性了吗？设置成ftp列。不然 ftp 就是空值
-- 发布时间：2015/8/5 15:39:00
--
请教,这一列用代码怎么设置属性, 因为会根据服务器或本机 来动态设置是否是ftp 或 直连到某个文件夹
此主题相关图片如下：2015-08-05_154743.jpg
[此贴子已经被作者于2015/8/5 15:48:20编辑过]
-- 发布时间：2015/8/5 16:00:00
--
可以了,搞定了,不用回复了! 谢谢!