此主题相关图片如下：1.png

老师，为啥查看窗口查看不了呢？

表的currentchanged事件：

If Forms("更改窗口").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("更改窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else
        pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示
    End If
End If

If Forms("查看窗口").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("查看窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else
        pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示
    End If
End If

查看窗口的afterload事件：

Tables("person").RaiseCurrentChanged()

点击更改时，图片能显示出来，就是有滚动条， 把滚动条设为false,依然有？

PictureBox控件，设置 缩放->StretchImage

  查看窗口依然无法显示图片，只有左右两边细细的两条道道

执行下面代码弹出什么？红色代码生成的图片是否正确？

If Forms("查看窗口").Opened Then \'如果窗口已经打开

msgbox(1)
    Dim pbx As WinForm.PictureBox = Forms("查看窗口").Controls("PictureBox1")
    If Tables("person").Current Is Nothing Then
        pbx.Image = Nothing
    Else

msgbox(2)
        pbx.Image = Tables("person").Current.DataRow.SQlLoadImage("photo") \'从后台提取照片并显示

pbx.Image.save("d:\\123.jpg")
    End If
End If