- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件事件代码报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26543)
-- 发布时间：2012/12/7 15:24:00
-- 控件事件代码报错
我在窗体afterload 事件中写入代码
Dim ccdd As WinForm.ComboBox = e.Form.Controls("出差地点")
Dim a As List(of String) = DataTables("地区信息").GetUniqueValues("","省级")
Dim s As List(of String) = DataTables("地区信息").GetUniqueValues("","市级")
Dim d As List(of String) = DataTables("地区信息").GetUniqueValues("","县级")
For Each q As String In a
For Each w As String In s
For Each r As String In d
ccdd.ComboList =q & w & r
Next
Next
Next
目的就是让这个控件点击的时候可以接收到我的连接三列数据以｜分割
系统报错为类型不符
请高手指点
-- 发布时间：2012/12/7 15:32:00
--
老师们呢？
-- 发布时间：2012/12/7 15:39:00
--
这样吧，用空格分隔。
Dim ccdd As WinForm.ComboBox = e.Form.Controls("出差地点")
Dim a As List(of String) = DataTables("地区信息").GetUniqueValues("","省级")
Dim s As List(of String) = DataTables("地区信息").GetUniqueValues("","市级")
Dim d As List(of String) = DataTables("地区信息").GetUniqueValues("","县级")
Dim data As String = ""
For Each q As String In a
For Each w As String In s
For Each r As String In d
data += q & " " & w & " " & r & "|"
Next
Next
Next
ccdd.ComboList = data
-- 发布时间：2012/12/7 15:45:00
--
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/12/7 15:46:00
--
我要把文件上传上来吗？林老师？
-- 发布时间：2012/12/7 15:46:00
--
注意控件对应的name
-- 发布时间：2012/12/7 15:48:00
--
控件名称是没有问题的，我特别注意并反复审核了两次
-- 发布时间：2012/12/7 15:53:00
--
哦哦，现在没报错了....应用窗口后项目直接死掉了
-- 发布时间：2012/12/7 16:34:00
--
上传你的项目吧……我看看。
-- 发布时间：2012/12/7 17:13:00
--
林老师，项目过些天再上传，我把我现在跟你学到的，我理解的做一下先，到最后不行的时候再一次性请老师解决好吧