以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于FTP文件名显示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100084)

--  作者:有点色
--  发布时间:2017/5/4 15:54:00
--  

 动态设置你列的ftp的根路径

 

DataTables("表名").DataCols("列名").FTPClient.RootDir = "/xxx/yyy/zzz/aaa/bbb/"

 

 然后再上传文件。

 

 如果每一行的根路径都不同,你可以在currentChanged事件指定其值。


--  作者:有点色
--  发布时间:2017/5/4 16:06:00
--  

测试了一下,2楼的方法不行。你需要换一种思路。

 


--  作者:有点色
--  发布时间:2017/5/4 16:12:00
--  

在你窗口的timertick事件写代码

 

Dim lbx As object = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
For i As Integer = 0 To lbx.Items.Count - 1
    lbx.items(i) = FileSys.GetName(lbx.items(i))
Next


--  作者:有点色
--  发布时间:2017/5/4 16:14:00
--  

 然后绑定listbox的doubleclick事件

 

 

全局代码

 

Public Sub listBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
    msgbox(2)
End Sub

 

 

AfterLoad事件

 

Dim obj As windows.Forms.Listbox = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
AddHandler obj.DoubleClick, addressOf listBox1_DoubleClick


--  作者:有点色
--  发布时间:2017/5/11 9:53:00
--  

1、你要开启timertick事件

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

2、默认双击的时候,会下载和打开你的文件的,你绑定事件后,你可以任意的处理。

 

     或者你可以不绑定,直接编写beforeOpenFile事件,写 e.Cancel=true ,然后自己编写代码去实现下载和显示的功能。


--  作者:有点色
--  发布时间:2017/5/11 10:26:00
--  
以下是引用ZJZK2015在2017/5/11 10:07:00的发言:
但是我不知道“然后绑定listbox的doubleclick事件”这个干吗用,我没有用这listbox控件啊???

 

fileManager控件,里面是由很多个控件组成的,其中,显示文件名的,就是listbox控件。


--  作者:有点色
--  发布时间:2017/5/11 11:09:00
--  
 不需要绑定,直接写beforeOpenFile事件。
--  作者:有点色
--  发布时间:2017/5/11 12:16:00
--  

 把你绑定的doubleclick事件去掉,就不会有提示了。

 

 然后你在BeforeOpenFile事件写下载和打开文件的代码

 

http://www.foxtable.com/webhelp/scr/1410.htm

 


--  作者:有点色
--  发布时间:2017/5/11 15:00:00
--  

改成这样

 

Dim fname As String = FileSys.GetName(e.FileName)
Dim path As String = "/DL/Ztbzl/" & Format(e.DataRow("开标日期"), "yyyyMM") & e.DataRow("项目名称") & "/" & fname

Dim ftp1 As ftpclient = e.DataCol.FTPClient
If ftp1.Download(path, "c:\\" & fname) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Dim proc As new Process
    proc.File = "c:\\" & fname
    proc.Start
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

e.cancel = True


--  作者:有点色
--  发布时间:2017/5/11 17:27:00
--  

 编写drawcell事件

 

If e.Col.name = "上传招标文件" Then
    e.text = FileSys.GetName(e.text)
End If