请教老师，下面代码在窗口按钮执行，增加第一行后添加图片，图片管理器能及时显示已上传的图片，此时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

试试

1、切换到上一行，再切换回来；

2、图片控件绑定nothing，然后再绑定回来。