以文本方式查看主题

-  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=82171)

--  作者:冰淇淋小子
--  发布时间:2016/3/13 6:25:00
--  打开表,如何指定定位到某一条记录
例如我在设备一览表在ip地址现在在192.168.1.5我点击右键定位到ip表,在ip表自动定位到192.168.1.5
[此贴子已经被作者于2016/3/13 6:26:23编辑过]

--  作者:黄训良
--  发布时间:2016/3/13 10:16:00
--  
MainTable = Tables("ip表")
With CurrentTable
    Dim r As Integer
    r = .Find("192.168.1.5", 0, 0, False, False, True)
    If r > - 1 Then \'如果找到符合条件的行
        .Position = r \'则选择该行
    End If 
End With
[此贴子已经被作者于2016/3/13 10:18:12编辑过]

--  作者:sjx71
--  发布时间:2016/3/13 10:35:00
--  
前边加上两句话是不是更好,中间再改一句话,这样选中不同的IP地址都可以实现需要的功能。

Dim s as String 
s = Tables("设备一览表").Current("ip地址")

MainTable = Tables("ip表")
With CurrentTable
    Dim r As Integer
    ’r = .Find("192.168.1.5", 0, 0, False, False, True)
    r = .Find(s, 0, "ip地址", False, False, True)
    If r > - 1 Then \'如果找到符合条件的行
        .Position = r \'则选择该行
    End If 
End With

--  作者:冰淇淋小子
--  发布时间:2016/3/13 10:47:00
--  
不一定是192.168.1.5  也许是其他IP地址了


--  作者:冰淇淋小子
--  发布时间:2016/3/13 10:53:00
--  
定位到然后有个在我们行号哪里出现一个小箭头  如何操作
--  作者:Hyphen
--  发布时间:2016/3/14 9:10:00
--  
行号没有办法显示其它字符
--  作者:大红袍
--  发布时间:2016/3/14 13:33:00
--  
以下是引用冰淇淋小子在2016/3/13 10:53:00的发言:
定位到然后有个在我们行号哪里出现一个小箭头  如何操作

 

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

 

2、http://www.foxtable.com/help/topics/1629.htm