CurrentChanged事件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在全局表事件中写下面代码，解决了窗口副表与主表行位置联动，现在的需求是能否写一个通用代码来解决主表与窗口副表行位置联动问题？如何写代码，写在哪里？？谢谢

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return

Else

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

Dim tb As Table = Tables(e.Table.DataTable.Name)

Dim wz As Integer = tb.FindRow(dr)

If wz >= 0 Then

Systemready = False

tb.Position = wz

Systemready = True

tb.Refresh ''表的行标不显示问题

End If

主题：CurrentChanged事件问题