If e.Col.name = "第六列" Then Dim ftp As FTPClient = e.Col.DataCol.FTPClient Dim file =ProjectPath & "temp/" & FileSys.GetName(e.Row(e.Col.name)) If ftp.Download(e.Row(e.Col.name),file, True) Then Dim proc As new Process proc.file = file proc.Start Else msgbox("下载失败") End If e.cancel = True End If