主题：关于FTP文件名显示问题

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

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

 然后再上传文件。

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

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

在你窗口的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

 然后绑定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

1、你要开启timertick事件

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

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

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

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

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

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

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

改成这样

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

 编写drawcell事件

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