老师,这句代码前几天执行正常,这几天执行老报错,查不出哪里有问题。
Dim p As WinForm.Painter = e.Form.Controls("Painter2")
Dim g As Graphics = p.Graphics
g.Clear(Color.LightSkyBlue)
p.Repaint()
If Tables("MainTable").current.Isnull("ProudPic") = False Then
Dim srr As String = “D:\public\UploadData\FMEA\0000201908-0003\ProudPic\" & Tables("MainTable").current("ProudPic")
MessageBox.Show(srr)
g.DrawImage(getImage(srr),48,60,200,200)
p.Repaint()
End If
此主题相关图片如下:1.png