主题：关于截图的代码

代码没问题，报什么错？如果直接关闭了你的项目，应该是datacolchanged事件死循环了吧？

你这个表 Tables("报价主表.报价明细") 是空白的没有数据？

代码加入判断，如

basemainform.visible = False
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    msgbox("ok")
    Dim r = Tables("报价主表.报价明细").current
    If r Is Nothing Then r = Tables("报价主表.报价明细").addnew
    ClipBoard.GetImage.save(projectPath & r("模号") & ".jpg")
    msgbox("保存到了")
    Dim ls = r.DataRow.lines("附图")
    ls.add(projectPath & r("模号") & ".jpg")
    r.DataRow.lines("附图") = ls
End If