RowActivate事件
麻烦老师帮忙看一下 下面这段代码 图片没有的 下载后 位什么不显示? 把红色部分启用就可以了 写成变量不行
计算是 bz0002.jpg这张图片 不存在 双击后 ListView 就能正常显示
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
tb1.Table.Position =tb1.Table.FindRow(" 物料代码 ='" & e.Sender.Current("物料代码") & "'")
DataTables("物料表").LoadFilter =" 物料代码 ='" & tb1.Table.Current("物料代码") & "' "
DataTables("物料表").Load
Dim fm As WinForm.PictureViewer = Forms(e.Form.Name).Controls("图片")
fm.CommandVisible =False
Dim ftp1 As New FtpClient
ftp1.Host = vars("ftpip")
ftp1.Account = vars("ftpuser")
ftp1.Password = vars("ftppassword")
ftp1.Port = vars("ftpport")
ftp1.RootDir="\商品image"
Dim lst As New List(of String)
lst = tb1.Table.Current.DataRow.Lines("图片")
For Each dc As String In lst
If FileSys.FileExists( ProjectPath & "\RemoteFiles\" & dc ) =False Then
ftp1.Download( "\商品Image\" & dc , ProjectPath & "\RemoteFiles\" & dc )
End If
Next
'tb1.Table.Current("图片") ="bz0002.jpg"
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim Key As String = tb1.Table.Current("图片")
Dim img As String = ProjectPath & "RemoteFiles/" & tb1.Table.Current("图片")
lvw.Images.AddLargeImage(Key, img) '添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Current '增加一行
vr.ToolTipText = tb1.Table.Current("效果") '设置此行的动态提示
vr.ImageKey = Key '设置图片键值
vr.Retrieve