请教老师,下面代码在窗口按钮执行,增加第一行后添加图片,图片管理器能及时显示已上传的图片,此时RemoteFiles的文件夹中的根目录文件夹中有图片,
增加第二行或第三、第四...行,同样操作添加图片,服务器中有图片,但是RemoteFiles中的根目录文件夹中没有图片,此时图片管理器无法预览图片,除非点击其他行后,再返回
刚添加图片的行,图片管理器才显示图片,此时RemoteFiles中的根目录文件夹中也才有对应的图片,下面代码如何调整才能及时显示上传的图片???
Dim dlg As New OpenFileDialog '定义一个新的SaveFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter = "图形文件|*.jpg"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
'------检查·是否后缀是jpg文件
Dim fl As String = dlg.FileName
Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) '获取文件后缀名
If ex = "jpg" Then '如果是jpg文件,执行下面代码
Dim ftp1 As new ftpclient
ftp1.Host = Host '使用全局代码
ftp1.Account = Account '使用全局代码
ftp1.Password = PassWd '使用全局代码
Dim r As Row = Tables("价格数据表").Current
Dim ls As List(of String) = r.DataRow.Lines("产品图片")
For Each f As String In dlg.FileNames
Dim file = "/" & RootDir31 & "/" & r("入库编号") & filesys.GetName(f)
piv.AddFile(file)
Dim Result As DialogResult
If ftp1.FileExists(file) Then
Result = MessageBox.Show("文件已经存在,是否覆盖替换?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = Nothing OrElse result = DialogResult.Yes Then
If ftp1.Upload(f,file,True) = True Then
If ls.contains(file) = False Then
ls.add(file)
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
DataTables("价格数据表").Save()
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End If
Next
Else
MessageBox.Show("只能上传jpg格式文件!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
End If