主题：[求助]

CurrentChanged事件

If e.Table.Current IsNot Nothing Then
    Dim t As Table = e.Form.controls("table1").Table
    Dim idx = t.FindRow("姓名 = '" & e.Table.Current("姓名") & "'")
    If idx >= 0 Then
        t.Position = idx
    End If
End If

http://www.foxtable.com/webhelp/scr/2631.htm