共13 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：QueryBuilder如何制作单元格超链接

1楼

lur320 发表于：2023/12/22 14:25:00

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

2楼

puma 发表于：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楼

有点蓝 发表于：2023/12/22 14:38:00

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

Dim q As new QueryBuilder
q.TableName = "销量统计"
q.SelectString = "Select * From {订单} "
q.Build

DataTables("销量统计").DataCols("文件列").ExtendType = ExtendTypeEnum.Files

4楼

lur320 发表于：2023/12/22 14:51:00

不行，临时表不能编辑。能不能在窗体上放一个SQLtable，通过按钮来改变它的select语言？怎么实现？

就是打开窗体时，se1ect语言是空，通过按钮改变table1的select语言？

此主题相关图片如下：捕获.png

5楼

有点蓝 发表于：2023/12/22 14:59:00

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

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

6楼

lur320 发表于：2023/12/22 15:51:00

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

我用临时表生成的带锁

此主题相关图片如下：捕获.png

7楼

有点蓝 发表于：2023/12/22 15:57:00

解锁就行了：http://www.foxtable.com/webhelp/topics/0034.htm

或者：http://www.foxtable.com/webhelp/topics/1431.htm

8楼

lur320 发表于：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楼

有点蓝 发表于：2023/12/22 16:10:00

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

10楼

lur320 发表于：2023/12/22 16:12:00

Dim Proc As New Process '定义一个新的Process
Proc.File = CurrentTable.Current("文件地址")'指定要打开的文件

Proc.Start()

好像右击直接打开文件不能在快捷菜单上执行，在命令窗口倒是正常

共13 条记录, 每页显示 10 条, 页签: [1] [2]