老师您好。
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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/20194291471491150.png)