Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim dr As DataRow = cm.SelectedItem If dr IsNot Nothing Then e.Form.Controls("客户名称").text = dr("客户名称") e.Form.Controls("联系人").text = dr("联系人") e.Form.Controls("手机号码").text = dr("手机号码") e.Form.Controls("送货地址").text = dr("送货地址") End If