- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- QueryBuilder如何制作单元格超链接 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189743)
-- 发布时间：2023/12/22 14:25:00
-- QueryBuilder如何制作单元格超链接
QueryBuilder之后，有一列单元格，里面的内容是文件地址。如何在创建临时表的时候做好超链接？点击就能打开文件？
-- 发布时间：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
-- 发布时间：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
q.TableName = "销量统计"
q.SelectString = "Select * From {订单} "
q.Build
DataTables("销量统计").DataCols("文件列").ExtendType = ExtendTypeEnum.Files
-- 发布时间：2023/12/22 14:51:00
--
不行，临时表不能编辑。能不能在窗体上放一个SQLtable，通过按钮来改变它的select语言？怎么实现？
就是打开窗体时，se1ect语言是空，通过按钮改变table1的select语言？
此主题相关图片如下：捕获.png
-- 发布时间：2023/12/22 14:59:00
--
临时表可以编辑，只是不能保存
可以使用fill绑定窗口表：http://www.foxtable.com/webhelp/topics/2912.htm
-- 发布时间：2023/12/22 15:51:00
--
临时表可以编辑，只是不能保存
我用临时表生成的带锁
此主题相关图片如下：捕获.png
-- 发布时间：2023/12/22 15:57:00
--
解锁就行了：http://www.foxtable.com/webhelp/topics/0034.htm
-- 发布时间：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
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
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
-- 发布时间：2023/12/22 16:10:00
--
这个事件是设置菜单的：http://www.foxtable.com/webhelp/topics/0662.htm，有设计快捷菜单吗
-- 发布时间：2023/12/22 16:12:00
--
Dim Proc As New Process \'定义一个新的Process
Proc.File = CurrentTable.Current("文件地址")\'指定要打开的文件
Proc.Start()
好像右击直接打开文件不能在快捷菜单上执行，在命令窗口倒是正常