主题：[讨论]Bin大师：您再帮我瞧瞧您帮我改的这段代码！！！

如果你指定了存放路径：

With Tables("项目信息库").Current '引用当前行
    If .IsNull("项目大计划") = False Then '如果已经存在文件
        Dim Proc As New Process
        Proc.File =  DataTables("项目信息库").DataCols("项目大计划").DefaultFolder &  "\" & Tables("项目信息库").Current("项目大计划") 
        Proc.Start
    Else
       MessageBox.show("该项目未上传项目大计划!","提示")
    End If
End With

参考：

http://www.foxtable.com/help/topics/2043.htm

如果没有设置存放路径：

With Tables("项目信息库").Current '引用当前行
    If .IsNull("项目大计划") = False Then '如果已经存在文件
        Dim Proc As New Process
        Proc.File =  projectpath &  "Attachments\" & Tables("项目信息库").Current("项目大计划") 
        Proc.Start
    Else
       MessageBox.show("该项目未上传项目大计划!","提示")
    End If
End With