MouseEnterCell
打开窗口的同时根据动态路劲获得图片文件地址 并显示在PictureViewer中
地址存储在 图片列
If e.Col.Name = "资产ID" AndAlso e.Row.IsNull("资产ID") = False Then
Forms("固定资产图片").Show
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim ftp1 As New FtpClient
ftp1.Host="******"
ftp1.Account = "****"
ftp1.Password = "*****"
ftp1.DeleteEnabled =False '禁用删除文件按钮
ftp1.RenameEnabled = False '禁用重命名文件按钮
piv.FTPclient = ftp1
End If