cm
As WinForm.ComboBox =
e.Form.Controls("ComboBox1")
Dim dr As
DataRow =
cm.SelectedItem
If dr IsNot Nothing
Then
e.Form.Controls("txtName").Value
= dr("姓名")
e.Form.Controls("txtTel").Value
= dr("电话")
End If
本页地址:http://www.foxtable.com/webhelp/topics/0937.htm