SelectedIndexChanged 事件
Dim t As Table = Tables("表A")Dim idx As String = t.FindRow("姓名 = '" & e.Sender.SelectedValue & "'")If idx >= 0 Then t.Position = idxEnd If