Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提取交叉表的字段名称


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

主题：提取交叉表的字段名称
帅哥哟，离线，有人找我吗？
不再回首
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		提取交叉表的字段名称  发帖心情 Post By：2018/6/20 10:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：交叉查询的字段名称.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
不再回首
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		  发帖心情 Post By：2018/6/20 10:53:00 [只看该作者]

请问各位老师：这是一个交叉查询生成的表，我想双击第三行的“14”数字这一例，那么系统可以自动把物料名称（APT2) 与它对应的标题（008-DT）发到另一张实体表中去，我想问怎么提取这个标题名称（008-DT)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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("第一列"))
 回到顶部
帅哥哟，离线，有人找我吗？
不再回首
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		  发帖心情 Post By：2018/6/20 10:55:00 [只看该作者]

谢谢老师，我先试一下
 回到顶部
帅哥哟，离线，有人找我吗？
不再回首
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		  发帖心情 Post By：2018/6/20 10:56:00 [只看该作者]

我是随意双击任一行都要自动发送物料名称与字段名称，那我该怎么做
 回到顶部
帅哥哟，离线，有人找我吗？
不再回首
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		  发帖心情 Post By：2018/6/20 11:07:00 [只看该作者]

有点甜老师，我无法判断我点的是哪一行哪一例，所以还是提取不了字段名称
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/20 11:18:00 [只看该作者]

以下是引用不再回首在2018/6/20 10:56:00的发言：
我是随意双击任一行都要自动发送物料名称与字段名称，那我该怎么做

 

开启全局表事件，设置doubleclick事件代码

 

http://www.foxtable.com/webhelp/scr/0671.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
不再回首
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1380 威望：0 精华：0 注册：2018/6/4 12:19:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询