- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]遍历控件值，并存入集合，怎么调试不通过呢？请各位帮忙看一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69736)
-- 发布时间：2015/6/10 9:07:00
-- [求助]遍历控件值，并存入集合，怎么调试不通过呢？请各位帮忙看一下
Dim prds As List(of String)
Dim i As Integer
For i=1 To 8
If e.Form.Controls("ComboBox"&i).Value Is Nothing Then
Exit For
End If
prds.Insert(i-1,e.Form.Controls("ComboBox"&i).Value )
Next
[此贴子已经被作者于2015/6/10 9:07:31编辑过]
-- 发布时间：2015/6/10 9:10:00
--
你想做什么?
Dim prds As List(of String) Dim i As Integer For i=1 To 8 If e.Form.Controls("ComboBox"&i).Value Is Nothing Then Continue For End If prds.Insert(i-1,e.Form.Controls("ComboBox"&i).Value ) Next 这个意思吗? |
-- 发布时间：2015/6/10 9:17:00
--
ComboBox有值的就把这些值放在Prds集合里，没有就退出循环，不放
目的是把用户的选择内容放在集合里，后面要用
-- 发布时间：2015/6/10 9:19:00
--
看2楼
或者
Dim prds As new List(of String)
Dim i As Integer
For i=1 To 8
If e.Form.Controls("ComboBox"&i).Value Isnot Nothing Then
prds.add(e.Form.Controls("ComboBox"&i).Value )
End If
Next
-- 发布时间：2015/6/10 9:23:00
--
非常感谢，调试通过了！可是为什么呢？放在End IF外就不执行了呢？
-- 发布时间：2015/6/10 9:27:00
--
你直接是空就退出循环了.当然不行
-- 发布时间：2015/6/10 9:29:00
--
我错了！再次谢谢版主！