……
proc.WaitForClose = True
proc.Start()
If ClipBoard.ContainsImage Then
Dim img As Image
img = ClipBoard.GetImage()
Dim f As String = e.Row("区域名称") & "\" & e.Row("立面编号") &"\" & e.Row("类别")&"\" & e.Row("施工项目")&".png"
img.save(projectpath & "Attachments\" & f)
e.row("图片") = f
End If