Foxtable(狐表)用户栏目专家坐堂 → [求助]]双击单元格出错


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

主题:[求助]]双击单元格出错

帅哥哟,离线,有人找我吗?
liuyixin662
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
[求助]]双击单元格出错  发帖心情 Post By:2016/10/11 9:47:00 [只看该作者]

老师你好,麻烦修改一下DoubleClick双击单元格打开远程文件代码:
If e.Col.name = "ss"  Then
Dim c As Col = CurrentTable.Cols("ss")
Dim path As String = ProjectPath & "\\192.168.0.3\liu1" & FileSys.GetName(CurrentTable.Current(c.Name))
Dim proc As new Process
proc.File = path
proc.Start
End If

 回到顶部
帅哥哟,离线,有人找我吗?
liuyixin662
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2016/10/11 9:49:00 [只看该作者]

双击单元格出错
图片点击可在新窗口打开查看此主题相关图片如下:双击单元格出错.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
liuyixin662
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2016/10/11 9:49:00 [只看该作者]

代码如下
图片点击可在新窗口打开查看此主题相关图片如下:双击单元格代码.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/11 10:23:00 [只看该作者]

If e.Col.name = "ss"  Then
    Dim path As String =  "\\192.168.0.3\liu1\" & FileSys.GetName(e.Row(e.Col.name ))
    Dim proc As new Process
    proc.File = path
    proc.Start
End If

 回到顶部
帅哥哟,离线,有人找我吗?
liuyixin662
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2016/10/11 16:32:00 [只看该作者]

提示密码在哪设置

 回到顶部
帅哥哟,离线,有人找我吗?
liuyixin662
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2016/10/11 16:33:00 [只看该作者]

提示密码在哪设置
图片点击可在新窗口打开查看此主题相关图片如下:提示密码在哪设置.bmp
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
liuyixin662
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:534 积分:4420 威望:0 精华:0 注册:2012/11/28 16:03:00
  发帖心情 Post By:2016/10/11 16:36:00 [只看该作者]

FTP能上传文件,但插入上传文件后双击就出现上面提示


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/11 16:50:00 [只看该作者]

下载到本地在打开

If e.Col.name = "ss"  Then
    Dim path As String =  ProjectPath & "Attachments\" & FileSys.GetName(e.Row(e.Col.name ))
    Dim proc As new Process
    proc.File = path
    proc.Start
End If

 回到顶部