以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  大家好，关于某一列的调用或者说查询问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24860)
--  作者：夜色如歌
--  发布时间：2012/10/25 6:46:00
--  大家好，关于某一列的调用或者说查询问题
大家好，是这样的，我有2个表，一个表是信息表，另一表是工作表。
我想在工作表的每一列中添加一个按钮，点击后，可以跳转到信息列中对应的列。相当于信息的调用，或者说是查询。

抱歉，我是个新手，思路表达的有些繁琐，先谢谢大家了。
--  作者：狐狸爸爸
--  发布时间：2012/10/25 6:56:00
--  
MainTable = Tables("信息表")
With Tables("信息表")
     Dim c As Integer = .Cols("某个列").Index
     .Select(2,c,2,c)
End With
--  作者：夜色如歌
--  发布时间：2012/10/25 7:13:00
--  
 感谢
--  作者：夜色如歌
--  发布时间：2012/10/25 7:15:00
--  
信息表写表的名称，那某个列，我要改成某个行，就是填这一行的行数吗？那如果，前面的行被删除，导致这一行数有变化，岂不是查错行了。。。
--  作者：lin_hailun
--  发布时间：2012/10/25 8:52:00
--  
以下是引用夜色如歌在2012-10-25 7:15:00的发言：
信息表写表的名称，那某个列，我要改成某个行，就是填这一行的行数吗？那如果，前面的行被删除，导致这一行数有变化，岂不是查错行了。。。

未看懂……
[此贴子已经被作者于2012-10-25 8:52:42编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/10/25 9:24:00
--  
MainTable = Tables("信息表")
Dim dr As DataRow = DataTables("信息表").Find("条件")
With Tables("信息表")
        If dr IsNot Nothing Then
            dim r As Integer = Tables("信息表").FindRow(dr)
            Dim c As Integer = .Cols("某个列").Index
            .Select(r,c,r,c)
        End If
End With