- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65277)
-- 发布时间：2015/3/12 19:53:00
-- 求助
l老师麻烦帮我看下我的代码哪里问题
Dim cm As WinForm.ComboBox = e.Form.Controls("方案编号")
Dim dr As DataRow = cm.SelectedItem
If dr IsNot Nothing Then
e.Form.Controls("客户名称").Value = dr("客户名称")
e.Form.Controls("联系人").Value = dr("联系人")
e.Form.Controls("联系电话").Value = dr("联系电话")
End If
此主题相关图片如下：qq截图20150312195152.jpg
-- 发布时间：2015/3/12 19:55:00
--
运行后出现下面的错误提示，麻烦老师帮我修改下代码，谢谢
此主题相关图片如下：qq截图20150312195006.jpg
-- 发布时间：2015/3/12 19:56:00
--
Dim cm As WinForm.ComboBox = e.Form.Controls("方案编号")
Dim dr As DataRow = DataTables("表A").Find("方案编号 = \'" & cm.Text & "\'")
If dr IsNot Nothing Then
e.Form.Controls("客户名称").Value = dr("客户名称")
e.Form.Controls("联系人").Value = dr("联系人")
e.Form.Controls("联系电话").Value = dr("联系电话")
End If