SelectedIndexChanged事件,写代码
Dim dr as DataRow = e.sender.SelectedItem
if dr isnot nothing then
e.form.controls("TextBox1").Text = dr("第一列")
e.form.controls("TextBox2").Text = dr("第二列")
end if
http://www.foxtable.com/webhelp/scr/0932.htm