之前在表格里完美实现了从单元格下拉列表框里选取值，然后将值背后对应表的值填写到本表另外一个单元格里：Select Case e.DataCol.name
Case "出发地", "途经地", "到达地"
Dim str As String = ""
For Each s As String In "出发地,途经地,到达地".split(",")
Dim dr As DataRow
dr = DataTables("城市信息表").Find("[城市名称] = '" & e.DataRow(s) & "'")
If dr IsNot Nothing Then
str &= s & ":" & dr("城市介绍") & vbcrlf
End If
Next
e.DataRow("具体介绍") = str
End Select
现在因为业务需求想把这个功能转移到窗口中，使用3个ComboBox来分别选择出发地,途经地,到达地，然后将背后对应表的值自动填充到本窗体中的textbox里，然后我再将值插入到表里。
看似多此一举，但是业务需求如此，实在没有办法。
跪求代码，感激不尽！
另有个小问题，为啥我把ComboBox放到窗体里，绑定到某表的某列上，3个ComboBox只有一个能取出来值？
加好友 
发短信
Post By：2018/7/18 18:58:00 [显示全部帖子]
