[讨论]Bin大师:您再帮我瞧瞧您帮我改的这段代码!!! Post By:2015/4/7 17:02:00 [显示全部帖子]
With Tables("项目信息库").Current '引用当前行 If .IsNull("项目大计划") = False Then '如果已经存在文件 Dim Proc As New Process Proc.File = "存放路径\" & Tables("项目信息库").Current("项目大计划") Proc.Start Else MessageBox.show("该项目未上传项目大计划!","提示") End If End With