不管选哪一个 后面的客户名称都是安徽
selectindexchanged 代码
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

此主题相关图片如下:qq图片20140114142554.jpg