If e.Table.Position = -1 OrElse e.Table.Rows.Count = 0 Then Return
SystemReady = False
Dim r As Row = e.Table.Current
Dim PN As String = r("PartNumber")
'先加载表2，再设置图片
Dim WO As String = r("WO")
'工单发料明细更新
DataTables("INI_RMReleaseToWO").LoadFilter = "WO = '" & WO & "'"
DataTables("INI_RMReleaseToWO").Load
Dim Pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim fpf As String
Dim fp As String = "P:\General documents\Setup\Pic\"
fpf = fp & PN & ".jpg"
If FileSys.FileExists(fpf) = False Then
fp = "T:\ME\ME Documentation\Picture\"
fpf = fp & PN & ".jpg"
If FileSys.FileExists(fpf) = False Then
fpf = "P:\General documents\Setup\Pic\Error.jpg"
End If
End If
pbx.ImageFile = fpf
pbx.SizeMode = ImageSizeMode.Zoom
加好友 
发短信
Post By：2023/11/3 16:59:00 [显示全部帖子]
