试试
If e.Table.Current Is Nothing Then ' 如果Current为Nothing
Return ' 则返回
End If
Dim ftp As New FTPClient
ftp.host = "8.136.146.239"
ftp.Account = "administrator"
ftp.password = "****"
ftp.RootDir = e.Table.Current("Bill_Num")
e.Table.ColS("附件").FileManager.FTPclient = Ftp
e.Table.DataTable.DataCols("附件").FTPClient.host = "8.136.146.239"
e.Table.DataTable.DataCols("附件").FTPClient.Account = "administrator"
e.Table.DataTable.DataCols("附件").FTPClient.password = "****"
e.Table.DataTable.DataCols("附件").FTPClient.RootDir = e.Table.Current("Bill_Num")