以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问,单击“窗口1”中的按钮“piao”,如何直接调用打开“表B”中“第一列”内容为“piao”的行中“第二列”的图片?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144626)

--  作者:fengwenliuyan
--  发布时间:2019/12/25 16:48:00
--  请问,单击“窗口1”中的按钮“piao”,如何直接调用打开“表B”中“第一列”内容为“piao”的行中“第二列”的图片?
请问,
单击“窗口1”中的按钮“票”,如何直接调用打开“表B”中“第一列”内容为“票”的行中“第二列”的图片

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb



--  作者:fengwenliuyan
--  发布时间:2019/12/25 18:52:00
--  回复:(fengwenliuyan)请问,单击“窗口1”中的按钮...
求帮助
--  作者:有点蓝
--  发布时间:2019/12/26 8:44:00
--  
Dim r As Row = Tables("表A").Current
If r Is Nothing Then Return ""
Dim dr As DataRow = DataTables("表B").Find("第一列=\'" & r("第一列") & "\'")
If dr IsNot Nothing Then
    Dim fl As String = ProjectPath & "Attachments\\" & dr("第二列")
    If FileSys.FileExists(fl) Then
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = fl \'指定要打开的文件
        Proc.Start()
    End If
End If

--  作者:fengwenliuyan
--  发布时间:2019/12/26 10:06:00
--  回复:(有点蓝)Dim r As Row = Tables("表A").Curre...
有错误提示?


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20191226100300.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/12/26 10:17:00
--  
去掉return后面的双引号
--  作者:fengwenliuyan
--  发布时间:2019/12/26 10:29:00
--  回复:(有点蓝)去掉return后面的双引号
这样只能打开一张图片,
一旦表B指定单元格存放的图片大于一张,则按钮就失效了?

那么能否直接打开的是“图片管理器”,或者是“图片所在的文件夹”?

图片管理器:


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看


图片所在的文件夹:


图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/12/26 10:31:00
--  
打开目录

        Dim Proc As New Process \'定义一个新的Process
        Proc.File = ProjectPath & "Attachments\\"
        Proc.Start()
[此贴子已经被作者于2019/12/26 10:31:44编辑过]

--  作者:有点蓝
--  发布时间:2019/12/26 10:33:00
--  
打开图片列

maintable = Tables("表B")
Tables("表B").Cols("第二列").OpenWindow

--  作者:fengwenliuyan
--  发布时间:2019/12/26 11:01:00
--  回复:(有点蓝)打开目录       ...
您这打开的是本地项目目录下的文件夹,若想打开局域网地址下的文件夹呢?
比如:
“\\\\主机\\信息库”

--  作者:有点蓝
--  发布时间:2019/12/26 11:05:00
--  
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = “\\\\主机\\信息库”
        Proc.Start()