以文本方式查看主题

-  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=49010)
--  作者：lxhmax
--  发布时间：2014/4/10 16:18:00
--  关联表定位行
请问下各位老师

表A跟表B关联，怎样才能让  ‘表A.表B’ 的焦点定位到 ‘表B’ 的行
--  作者：Bin
--  发布时间：2014/4/10 16:21:00
--  
利用FIND找到对应的行http://www.foxtable.com/help/topics/0552.htm
--  作者：54kang
--  发布时间：2014/4/10 17:04:00
--  
Dim dr As DataRow
dr = tables("表A.表B" ).current.datarow
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("表B").FindRow(dr)
    If wz >= 0 Then
        Tables("表B").Position = wz
    End If
End If