以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  公用盘链接路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173425)

--  作者:edisontsui
--  发布时间:2021/11/29 13:21:00
--  公用盘链接路径
file://pc-20150115kkfz/Users/sp_requestform_w7cn019sbg00951_880932.html

上面是一个放在公用盘上的文档路径。在我们系统里面怎么能够点击一下就可以去到这个路径打开其文档呢?

--  作者:有点蓝
--  发布时间:2021/11/29 13:35:00
--  
参考:http://www.foxtable.com/webhelp/topics/0353.htm

Dim Proc As New Process
Proc
.File = "
file://pc-20150115kkfz/Users/sp_requestform_w7cn019sbg00951_880932.html"
Proc.Start()

--  作者:edisontsui
--  发布时间:2021/11/30 17:13:00
--  
If CurrentTable.name = "IL接头任务单" Then
    Dim Proc As New Process
    Dim sp As String = "file://pc-20150115kkfz/Users/2021Special/" & e.DataRow("特殊单链接") & ".html" 
    Proc.File = "sp" 
    Proc.Start()
End If

上面的代码,我是希望,在 "特殊单链接" 这个数据列里面输入一个字符串,比如 "SPB11111", 然后双击此单元格,就会打开  file://pc-20150115kkfz/Users/2021Special/SPB11111.html 这个链接。但是出现编译错误:datarow 不是 CellClickEvenArgs 这样的警告。请问要怎样修改代码?

--  作者:jialihaha
--  发布时间:2021/11/30 17:18:00
--  
e.Row("特殊单链接")
--  作者:有点蓝
--  发布时间:2021/11/30 17:21:00
--  
看看:http://www.foxtable.com/webhelp/topics/0604.htm


--  作者:edisontsui
--  发布时间:2021/12/2 16:44:00
--  
关于3楼的问题,如果我仅仅需要进入共享盘的某个目录( 比如:\\\\PC-20150115KKFZ\\Users\\机加\\特殊开料图纸 )而不是要打开这个目录下面的某个文档,代码要怎样写呢?
--  作者:edisontsui
--  发布时间:2021/12/2 17:01:00
--  
如果要指定双击某数据列才去打开链接,那要怎样指定列名呢?
--  作者:有点蓝
--  发布时间:2021/12/2 17:16:00
--  
以下是引用edisontsui在2021/12/2 16:44:00的发言:
关于3楼的问题,如果我仅仅需要进入共享盘的某个目录( 比如:\\\\PC-20150115KKFZ\\Users\\机加\\特殊开料图纸 )而不是要打开这个目录下面的某个文档,代码要怎样写呢?

路径指定为目录的路径即可

Proc.File = "file://pc-20150115kkfz/Users/2021Special/"

--  作者:有点蓝
--  发布时间:2021/12/2 17:16:00
--  
以下是引用edisontsui在2021/12/2 17:01:00的发言:
如果要指定双击某数据列才去打开链接,那要怎样指定列名呢?

参考:http://www.foxtable.com/webhelp/topics/1499.htm
--  作者:edisontsui
--  发布时间:2021/12/3 8:15:00
--  
    If e.Col.Name = "特殊单链接" Then
        If e.Row.Isnull("特殊单链接") = False Then 
            Dim Proc1 As New Process
            Dim sp1 As String = "file://PC-20150115KKFZ/Users/Machining/SpecialNotes/" & e.Row("特殊单链接") & ".html"
            Proc1.File = sp1
            Proc1.Start()
        End If
    End If

上面这段代码,有时候明明在 //PC-20150115KKFZ/Users/Machining/SpecialNotes/ 这个目录下面是有某个档案名的,但就是弹出警告 “系统找不到指定的文件”。请问是什么原因呢?