If e.Table.Curent Is Nothing Then Return
Dim dlg As new SaveFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim c As Col = e.Table.Cols(e.Table.ColSel)
Dim ftp As FTPClient = c.DataCol.FTPClient
Dim path As String = ProjectPath & "RemoteFiles\" & FileSys.GetName(e.Table.Current(c.Name))
ftp.Download(e.Table.Current(c.Name), path, True)
FileSys.CopyFile(path, dlg.FileName, True)
msgbox("另存成功")
e.Form.Close
End If