Foxtable(狐表)用户栏目专家坐堂 → [求助]如何知道哪个位置调用的模块?


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

主题:[求助]如何知道哪个位置调用的模块?

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]如何知道哪个位置调用的模块?  发帖心情 Post By:2017/8/26 9:34:00 [只看该作者]

做了一个模式窗口M。调用M窗口的位置不确定。可能是表A的某个字段,调用的表和字段不确定。

如何在M信息准确赋值给调用单元呢?

就像系统提供的符号表,引用符号可能是任何位置,都能准确把符号插入到编辑点。就想达到这样效果。谢谢


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/26 10:04:00 [只看该作者]

var(name) ="表名|列名|主键"
M窗口.open

通过全局变量设置和获取编辑点

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2017/8/26 11:13:00 [只看该作者]

在哪启动这个M窗口呢?一启动窗口M,原来的表焦点就丢失了,用变量无法引用到的啊!可能上面的方法不可行。

 


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/26 11:33:00 [只看该作者]

需要启动窗口的地方呀,打开窗口前就赋值到变量呀

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2017/8/26 11:46:00 [只看该作者]

启动窗口M可能是一个按钮,怎么取呢?

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/26 11:53:00 [只看该作者]

按钮代码

var("name") = currenttable.name & "|" & currenttable.colsel & "|" & currenttable.rowsel
 Forms("M窗口").open

窗口内通过var("name")获取表名等等信息

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2017/8/26 14:20:00 [只看该作者]

非常感谢。就是它。

得到这三个数据,如何指定列? tables("表名").rows(I)(列号) ?


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/26 14:46:00 [只看该作者]

试就知道了 

tables("表名").rows(行号)(列号)

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2017/8/26 15:20:00 [只看该作者]

往回赋值怎么不对?错误  Cols不是Row成员

 

'表双击事件DoubleClick

 

If Vars("tszf")=Nothing Then Return
Dim wz() As String= cstr(Vars("tszf")).split("|")

 

Dim x As String=Tables(wz(0)).rows(cint(wz(2))).Cols(cint(wz(1)))

Tables(wz(0)).rows(cint(wz(2))).Cols(cint(wz(1)))=x & e.Row(e.Col.name)


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/8/26 15:24:00 [只看该作者]

Tables(wz(0)).rows(cint(wz(2)))(cint(wz(1)))

 回到顶部