以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何定位关联表的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118528)

--  作者:aza520
--  发布时间:2018/5/4 22:41:00
--  如何定位关联表的行
我有表A、表B,通过1列、2列进行关联,关联行都只有一行,表B是子表,如何实现选定表A的某一行时,会自动定位到表B的关联行。请老师指教
--  作者:有点蓝
--  发布时间:2018/5/4 22:51:00
--  
参考:http://www.foxtable.com/webhelp/scr/2631.htm

表B的CurrentChanged事件代码设置为:

if e.Table.Current is nothing then return

Dim dr As DataRow = e.Table.Current.DataRow

if e.table.name = "表B"

Dim wz As Integer = Tables("A.表B").FindRow(dr)

If wz >=0 Then
      Tables(
"
A.表B").Position = wz

End If

else

Dim wz As Integer = Tables("表B").FindRow(dr)

If wz >=0 Then
      Tables(
"
表B").Position = wz

End If

end if