以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何知道哪个位置调用的模块?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105797)

--  作者:新福星
--  发布时间:2017/8/26 9:34:00
--  [求助]如何知道哪个位置调用的模块?

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

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

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


--  作者:有点蓝
--  发布时间:2017/8/26 10:04:00
--  
var(name) ="表名|列名|主键"
M窗口.open

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

--  作者:新福星
--  发布时间:2017/8/26 11:13:00
--  

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

 


--  作者:有点蓝
--  发布时间:2017/8/26 11:33:00
--  
需要启动窗口的地方呀,打开窗口前就赋值到变量呀
--  作者:新福星
--  发布时间:2017/8/26 11:46:00
--  
启动窗口M可能是一个按钮,怎么取呢?
--  作者:有点蓝
--  发布时间:2017/8/26 11:53:00
--  
按钮代码

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

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

--  作者:新福星
--  发布时间:2017/8/26 14:20:00
--  

非常感谢。就是它。

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


--  作者:有点蓝
--  发布时间:2017/8/26 14:46:00
--  
试就知道了 

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

--  作者:新福星
--  发布时间: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)


--  作者:有点蓝
--  发布时间:2017/8/26 15:24:00
--  
Tables(wz(0)).rows(cint(wz(2)))(cint(wz(1)))