[求助]如何打开并显示当前行内的文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何打开并显示当前行内的文件？

共有4814人关注过本帖树形打印复制链接主题：[求助]如何打开并显示当前行内的文件？

liuxianjie1980

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

[求助]如何打开并显示当前行内的文件？ 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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