Foxtable(狐表)用户栏目专家坐堂 → QueryBuilder如何制作单元格超链接


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

主题:QueryBuilder如何制作单元格超链接

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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
QueryBuilder如何制作单元格超链接  发帖心情 Post By:2023/12/22 14:25:00 [只看该作者]

 QueryBuilder之后,有一列单元格,里面的内容是文件地址。如何在创建临时表的时候做好超链接?点击就能打开文件?

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


加好友 发短信
等级:小狐 帖子:358 积分:3005 威望:0 精华:0 注册:2023/6/7 16:07:00
  发帖心情 Post By:2023/12/22 14:36:00 [只看该作者]

可以参考下面打开excel文件的代码

 try
 
        Dim App As New MSExcel.Application
        App.Visible = True
        If FileSys.FileExists(FilePath  & ".xls") Then '如果指定的文件存在
            
            app.Workbooks.Open(FileName:=FilePath & ".xls", UpdateLinks:=0)
            ShowAppWindow( bn & ".xls", 2) '最大化显示
       end if

    Catch ex As Exception
        Return 0
    End try

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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/22 14:38:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1656.htm

Dim q As new QueryBuilder
q.TableName = 
"销量统计"
q.Se
lectString = "Select * From {订单} "
q.Build
DataTables("销量统计").DataCols("文件列").ExtendType = ExtendTypeEnum.Files

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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2023/12/22 14:51:00 [只看该作者]

 不行,临时表不能编辑。能不能在窗体上放一个SQLtable,通过按钮来改变它的select语言?怎么实现?
就是打开窗体时,se1ect语言是空,通过按钮改变table1的select语言?

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


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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/22 14:59:00 [只看该作者]

临时表可以编辑,只是不能保存

可以使用fill绑定窗口表:http://www.foxtable.com/webhelp/topics/2912.htm

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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2023/12/22 15:51:00 [只看该作者]

 临时表可以编辑,只是不能保存
我用临时表生成的带锁

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


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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/22 15:57:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2023/12/22 16:08:00 [只看该作者]

 我现在准备做全局表事件,并且在右键上打开文件。为何不行?
1.querytable的全局表事件也打开了对应的开关,

t1 = "Se1ect 文件地址,检验单号," & t & " From {QC数据} where 批号 in (" & lis & ") group by 检验单号,文件地址"
    Dim q As New QueryBuilder
    q.TableName = "QC数据表"
    q.C
    q.SelectString = t1
    q.Build
    MainTable = Tables("QC数据表")
    Tables("QC数据表").DataTable.GlobalHandler.BeforeShowContextMenu = True


2,全局表事件代码: 连messagebox都没有显示。
If e.Table.name = "QC数据表" Then
    If e.HitType = HitTypeEnum.Row Then
        Dim Proc As New Process '定义一个新的Process
        Proc.File = Tables("QC数据表").Current("文件地址")'指定要打开的文件
        MessageBox.Show(1)
        Proc.Start()
        
    End If
End If

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


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

这个事件是设置菜单的:http://www.foxtable.com/webhelp/topics/0662.htm,有设计快捷菜单吗

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


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2023/12/22 16:12:00 [只看该作者]

Dim Proc As New Process '定义一个新的Process
        Proc.File = CurrentTable.Current("文件地址")'指定要打开的文件
    
        Proc.Start()
好像右击直接打开文件不能在快捷菜单上执行,在命令窗口倒是正常

 回到顶部
总数 13 1 2 下一页