以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何表达同步选择两表中的同一字段内容的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60467)
--  作者：whyfoxtable
--  发布时间：2014/11/25 15:04:00
--  如何表达同步选择两表中的同一字段内容的行
前提：
表A 第一列 1,2,3,4,5
表B 第一列 1,3,5,2,4

要求：
选择表A第二行的时候（即表A第一列的“2”被选中），表B的第四行要被选中（即表B第一列中的“2”所在行要被选中。如何表达？

故障代码如下：

Dim Tab1 As Tables("表A")
Dim Tab2 As Tables("表B")
Dim Int1 As Integer
With Tab1
        Int1 = Tab2.FindRow(Tab2.Cols("第一列") = .Current("第一列"))
        Tab2.Select(Int1,0)
        End With
[此贴子已经被作者于2014-11-25 15:09:20编辑过]
--  作者：有点甜
--  发布时间：2014/11/25 15:08:00
--  
Dim Tab1 As Table = Tables("表A")
Dim Tab2 As Table = Tables("表B")
Dim Int1 As Integer
Int1 = Tab2.FindRow("第一列 = \'" & Tab1.Current("第一列") & "\'")
If Int1 >= 0 Then
    Tab2.position = Int1
End If
--  作者：whyfoxtable
--  发布时间：2014/11/25 15:27:00
--  一次试验成功。感谢 ！
position 的属性 ，我之前没注意到。看来还是要没事看帮助，over and over, again and again. 再次感谢。

另，您上段代码的中的字段表达方式，能用[]表示，还能用tables.cols(" ")表示吗？ 我试一下
--  作者：有点甜
--  发布时间：2014/11/25 15:32:00
--  
以下是引用whyfoxtable在2014-11-25 15:27:00的发言：

另，您上段代码的中的字段表达方式，能用[]表示，还能用tables.cols(" ")表示吗？ 我试一下

 

什么意思，哪一列？

[此贴子已经被作者于2014-11-25 15:32:26编辑过]
--  作者：whyfoxtable
--  发布时间：2014/11/25 15:44:00
--  表达式中的列的写法
Int1 = Tab2.FindRow("第一列 = \'" & Tab1.Current("第一列") & "\'")
--  作者：有点甜
--  发布时间：2014/11/25 15:47:00
--  
 表达式中，不能直接这样写代码的
--  作者：whyfoxtable
--  发布时间：2014/11/25 15:49:00
--  感谢感谢。
新手，还没习惯机器语言和社会言的区别