老师您好。
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
加好友 
发短信
Post By：2019/4/29 14:08:00 [只看该作者]
