textChanged事件
Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = Tables("表B").Current
r1("姓名") = e.Sender.Text
r2("姓名") = e.Sender.Text