Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列扩展为文件锁定行后怎么打开


  共有2091人关注过本帖树形打印复制链接

主题：[求助]列扩展为文件锁定行后怎么打开
帅哥哟，离线，有人找我吗？
aidimeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：7702 威望：0 精华：0 注册：2015/9/14 14:26:00 		[求助]列扩展为文件锁定行后怎么打开  发帖心情 Post By：2017/3/30 17:03:00 [只看该作者]

某列 扩展类型定义为  文件，发现 当行被锁定后 点击该列 不能查看文件了。能否 点击该列后 打开文件

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2017/3/30 18:11:00 [只看该作者]

暂时不可以，以后考虑改进

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2017/3/30 18:21:00 [只看该作者]

目前可以自己设置doubleClick事件打开文件：

http://www.foxtable.com/webhelp/scr/1499.htm
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2017/3/30 18:25:00 [只看该作者]

参考代码：

If e.Col.name = "第五列" Then
    e.Cancel = True
    If e.Row.IsNull("第五列") = False Then
        Dim fl As String = ProjectPath & "Attachments\" & e.Row("第五列")
        If FileSys.FileExists(fl) Then
            Dim Proc As New Process '定义一个新的Process
            Proc.File = fl '指定要打开的文件
            Proc.Start()
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/30 18:34:00 [只看该作者]

 不能锁定行，加一列逻辑列，用来锁定行，然后startEdit写代码

 

If e.Row("第二列") = True Then
    e.cancel = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：7702 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2017/3/31 7:50:00 [只看该作者]

谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：7702 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2017/3/31 8:17:00 [只看该作者]

Select Case e.Col.Name
     Case "磷酸批次报告","碱批次报告","柠檬酸批次报告","活性白土批次报告","凹凸棒土批次报告","膨润土批次报告","活性炭批次报告"
    e.Cancel = True
    If e.Row.IsNull(""& e.col.name &"") = False Then
        Dim fl As String = "\\192.168.1.160\hrdb\ftp\" & e.Row(""& e.col.name &"")
        If FileSys.FileExists(fl) Then
            Dim Proc As New Process '定义一个新的Process
            Proc.File = fl '指定要打开的文件
            Proc.Start()
        End If
    End If
End Select
达到预期效果 ，谢谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询