private Sub TableTextField_FocusChanged (HasFocus As Boolean)
If HasFocus Then
Dim tf As TextField = Sender
TableView1.SelectedRow = ASJO(tf.parent).RunMethodJO("getTableRow",Null).RunMethod("getIndex",Null)
End If
end sub
Private Sub ASJO(JO As JavaObject) As JavaObject
Return JO
End Sub