- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问下在窗口中如何用ComboBox控件获取某表的值然后填写在TextBox里？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122089)
-- 发布时间：2018/7/18 18:58:00
-- 请问下在窗口中如何用ComboBox控件获取某表的值然后填写在TextBox里？
之前在表格里完美实现了从单元格下拉列表框里选取值，然后将值背后对应表的值填写到本表另外一个单元格里：
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只有一个能取出来值？
-- 发布时间：2018/7/18 21:07:00
--
代码不需要写的吧？combobox、textbox直接绑定表列，就可以了的。你绑定以后遇到什么问题，做个例子发上来测试。
-- 发布时间：2018/7/19 16:25:00
--
例子已经上传，现在需要在打开的窗口中，在combobox里读取表A的3个城市列表，然后将对应的城市介绍按顺序逐一填充到窗口的1个
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
text控件中
-- 发布时间：2018/7/19 17:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |