以文本方式查看主题 - 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”中“第一列”内容为“票”的行中“第二列”的图片?
|
||||
-- 作者: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... 有错误提示? |
||||
-- 作者:有点蓝 -- 发布时间:2019/12/26 10:17:00 -- 去掉return后面的双引号 |
||||
-- 作者:fengwenliuyan -- 发布时间:2019/12/26 10:29:00 -- 回复:(有点蓝)去掉return后面的双引号 这样只能打开一张图片, 一旦表B指定单元格存放的图片大于一张,则按钮就失效了?
|
||||
-- 作者:有点蓝 -- 发布时间: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()
|