窗口1_Button1_Click
Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)
Dim ftp As FTPClient = c.DataCol.FTPClient
Dim path As String = ProjectPath & "RemoteFiles\" & FileSys.GetName(CurrentTable.Current(c.Name))
ftp.Download(CurrentTable.Current(c.Name), path, True)
Dim proc As new Process
proc.File = path
proc.Start
e.Form.Close
窗口1_Button2_Click
Dim dlg As new SaveFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)
Dim ftp As FTPClient = c.DataCol.FTPClient
Dim path As String = ProjectPath & "RemoteFiles\" & FileSys.GetName(CurrentTable.Current(c.Name))
ftp.Download(CurrentTable.Current(c.Name), path, True)
FileSys.CopyFile(path, dlg.FileName, True)
msgbox("另存成功")
e.Form.Close
End If