以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何打开并显示当前行内的文件？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66447)
--  作者：liuxianjie1980
--  发布时间：2015/4/7 10:34:00
--  [求助]如何打开并显示当前行内的文件？

如题。表中存在文件类型的列【项目大计划】，设计了该表的窗口，想通过该表窗口中的按钮控件实现当前行中[项目大计划]中的文件打开？

写了一段，写不了了，请老师帮忙！

With Tables("项目信息库").Current \'引用当前行
    If .IsNull("项目大计划") = False Then \'如果已经存在文件
        Dim Proc As New Process
        Proc.File = Tables("项目信息库").Current   这句是错误的
        Proc.Verb = "open"
    Else MessageBox.box("该项目未上传项目大计划!")
    End If
End With

 

红色部分是有问题的，帮忙修改，谢谢！！！

 

另外：对于扩展类型为单一类型的列，想在窗口中实现预览，该怎么弄呢？

记得坛子里好像有个大侠搞过，听起来很高大上的

[此贴子已经被作者于2015/4/7 10:35:48编辑过]
--  作者：Bin
--  发布时间：2015/4/7 10:38:00
--  
With Tables("项目信息库").Current \'引用当前行
    If .IsNull("项目大计划") = False Then \'如果已经存在文件
        Dim Proc As New Process
        Proc.File = "存放路径\\" & Tables("项目信息库").Current("项目大计划")   
        Proc.Start
    Else MessageBox.box("该项目未上传项目大计划!")
    End If
End With
--  作者：liuxianjie1980
--  发布时间：2015/4/7 10:44:00
--  
3q！！！！
--  作者：liuxianjie1980
--  发布时间：2015/4/7 10:46:00
--  
追问：如何实现预览效果呢，在filemanager中？
--  作者：liuxianjie1980
--  发布时间：2015/4/7 10:54:00
--  
调试结果：系统找不到文件啊？？
--  作者：liuxianjie1980
--  发布时间：2015/4/7 15:46:00
--  
大师呢？？急盼！！
--  作者：Bin
--  发布时间：2015/4/7 15:54:00
--  
说明你路径不对,你弹出你拼接的路径看看

messagebox.show(Proc.File )
--  作者：Bin
--  发布时间：2015/4/7 15:54:00
--  
另外 还有文件管理器 和图片管理器控件可以用的
--  作者：liuxianjie1980
--  发布时间：2015/4/7 17:17:00
--  

调试好了！！谢谢！