If Forms("窗口1").Opened Then '如果窗口已经打开 Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1") If Tables("表A").Current Is Nothing Then pbx.Image = Nothing Else Dim pb As WinForm.PictureBox = e.Form.Controls("PictureBox1") pb.Image = GetDwgImage( Tables("表A").Current("第一列")) End If End If