- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 提取交叉表的字段名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120594)
-- 发布时间：2018/6/20 10:50:00
-- 提取交叉表的字段名称
此主题相关图片如下：交叉查询的字段名称.png
-- 发布时间：2018/6/20 10:53:00
--
请问各位老师：这是一个交叉查询生成的表，我想双击第三行的“14”数字这一例，那么系统可以自动把物料名称（APT2) 与它对应的标题（008-DT）发到另一张实体表中去，我想问怎么提取这个标题名称（008-DT)
-- 发布时间：2018/6/20 10:53:00
--
参考代码
Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("表A").cols
dic.add(c.Caption, c.name)
Next
msgbox(dic("第一列"))
-- 发布时间：2018/6/20 10:55:00
--
谢谢老师，我先试一下
-- 发布时间：2018/6/20 10:56:00
--
我是随意双击任一行都要自动发送物料名称与字段名称，那我该怎么做
-- 发布时间：2018/6/20 11:07:00
--
有点甜老师，我无法判断我点的是哪一行哪一例，所以还是提取不了字段名称
-- 发布时间：2018/6/20 11:18:00
--
以下是引用不再回首在2018/6/20 10:56:00的发言：
我是随意双击任一行都要自动发送物料名称与字段名称，那我该怎么做
我是随意双击任一行都要自动发送物料名称与字段名称，那我该怎么做
开启全局表事件，设置doubleclick事件代码
http://www.foxtable.com/webhelp/scr/0671.htm
-- 发布时间：2018/6/20 12:29:00
--
谢谢您的提醒，我搞定了，就是下面的代码就可以了
Dim t As Table =Tables("订单明细数据交叉窗口_table1")
If Tables("DD排柜明细表").Current IsNot Nothing
Dim r As Row =Tables("DD排柜明细表").Current
Dim tr As Row =t.Current
Dim c As Col = t.Cols(t.ColSel)
r("物料名称") =tr("物料名称")
r("目的港") =c.Caption
End If