方法一:http://www.foxtable.com/webhelp/scr/2263.htm
方法二:窗口AfterLoad事件,写代码
Dim cr As Row = Tables("表A").Current
e.Form.controls("TextBox1").Text = cr("姓名")