以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于窗口跳转 传递数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72096)

--  作者:chang4628
--  发布时间:2015/7/23 14:07:00
--  关于窗口跳转 传递数据

我设计了一个窗口里 有表(副本) 我选中一行后,点详细信息,跳转到另外一个窗口,显示选中的行的全部信息(主表),

我是想用全局变量取选中行的编码信息,然后跳转窗口以后在新窗口中,搜索编码信息(不重复列),之后显示出来,应该怎么实现??


--  作者:大红袍
--  发布时间:2015/7/23 14:10:00
--  

 用FindRow定位

 

http://www.foxtable.com/help/topics/0553.htm

 


--  作者:chang4628
--  发布时间:2015/7/23 14:15:00
--  
以下是引用大红袍在2015/7/23 14:10:00的发言:

 用FindRow定位

 

http://www.foxtable.com/help/topics/0553.htm

 

Forms("企业信息详情").Show()
Dim xzh As String
xzh = CurrentTable.Current("企业编码")
With Tables("企业信息")
    Dim r As Integer
    r = .Find(xzh, 0, 0, False, False, True)
    If r > - 1 Then \'如果找到符合条件的行
        .Position = r \'则选择该行
    End If
End With
Forms("企业信息查询").Close()

 

 

我这么写的 我觉得是不是值没取出来啊?还是这个FIND不能判断变量?


--  作者:chang4628
--  发布时间:2015/7/23 14:24:00
--  

帮我再看看好吗?我这个变量的值好像没取出来,这个表好像不太对

我这个表示副本表,表名


xzh = Tables("企业信息查询_table1").Current("企业编码")
 

一这么写就显示报错 找不到这个表

但是这个表示我窗口里加的表项


--  作者:大红袍
--  发布时间:2015/7/23 14:31:00
--  

Dim xzh As String = Tables("企业信息查询_table1").Current("企业编码")
With Tables("企业信息")
    Dim r As Integer
    r = .FindRow("企业编码 = \'" & xzh & "\'")
    If r > - 1 Then \'如果找到符合条件的行
        .Position = r \'则选择该行

    Else

        .filter = "1=2"
    End If
End With
Forms("企业信息详情").Show()
Forms("企业信息查询").Close()