- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口录入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134195)
-- 发布时间：2019/4/29 14:08:00
-- 窗口录入
老师您好。
Dim dr As DataRow
dr = DataTables("办事处名单").Find("办事处 = \'重庆\'")
e.Form.controls("TextBox3").text = dr ("联系电话")
e.Form.controls("TextBox4").text = dr ("地址")
这段代码执行没有问题。但办事处列对应的内容是用编程的方法进行选择。假如以后办事处列有增加的内容，必须修改编码。使用上带来麻烦。于是修改了编码如下：
ComboBox2控件与办事处列绑定。办事处列增加内容后ComboBox2上自动显示修改内容。但修改后的编码无法执行。请求帮助！谢谢！
Dim dr As DataRow
Dim ar As String
ar = e.Form.controls("ComboBox2").text
dr = DataTables("办事处名单").Find("办事处 = \'ar\'")
e.Form.controls("TextBox3").text = dr ("联系电话")
e.Form.controls("TextBox4").text = dr ("地址")
此主题相关图片如下：qq截图20190429140147.png
-- 发布时间：2019/4/29 14:40:00
--
改成比如
dr = DataTables("办事处名单").Find("办事处 = \'" & ar & "\'")
-- 发布时间：2019/4/29 14:42:00
--
谢谢老师，问题解决了。
-- 发布时间：2019/4/29 14:46:00
--
此主题相关图片如下：qq截图20190429144407.png
录入没有问题，但出现一个错误提示框是怎么回事？
-- 发布时间：2019/4/29 15:24:00
--
Dim dr As DataRow
Dim ar As String
ar = e.Form.controls("ComboBox2").text
dr = DataTables("办事处名单").Find("办事处 = \'" & ar & "\'")
If dr IsNot Nothing Then
e.Form.controls("TextBox3").text = dr ("联系电话")
e.Form.controls("TextBox4").text = dr ("地址")
Else
msgbox("没找到")
End If