Private Function GetCheckListValue()
Dim myStr As String = ""
Dim myControl As Control
Dim li As ListItem
For Each myControl In Me.Controls
If TypeOf myControl Is CheckBoxList Then
For Each li In CType(myControl, CheckBoxList).Items
If li.Selected = True Then
myStr = myStr & "|" & li.Value
End If
Next
End If
Next
Return myStr
End Function
为什么老是取不到值,麻烦各位帮忙看一下是哪里出错了。
Dim myStr As String = ""
Dim myControl As Control
Dim li As ListItem
For Each myControl In Me.Controls
If TypeOf myControl Is CheckBoxList Then
For Each li In CType(myControl, CheckBoxList).Items
If li.Selected = True Then
myStr = myStr & "|" & li.Value
End If
Next
End If
Next
Return myStr
End Function
为什么老是取不到值,麻烦各位帮忙看一下是哪里出错了。
解决方案 »
- 对象必须实现 IConvertible错误
- DevExpress web 打印
- asp.net注册界面,我想先验证再执行导入
- 哪个高手帮帮我啊.我快崩溃了.怎么也弄不好
- 小小的不懂
- 烦请高人解决这段代码为什么不能更新
- 大家推荐几个有好的页面美化资源(如CSS,Theme,Skin)的网站吧。
- 请教,不会使用.aspx.resx文件。
- 那位大哥可以帮我看看这个网站,总是让别人挂马,
- “上传文件”的代码问题。
- 请教高手高手高高手一个有关加密的问题!!!!!!!!!!!!!!!!!!!!!!!!
- 发生类型为 System.Web.HttpUnhandledException 的异常。请问是什么原因啊???
TextBox1.Text = ""
Dim i As Integer
For i = 0 To CheckBoxList1.Items.Count - 1
If CheckBoxList1.Items.Item(i).Selected Then TextBox1.Text &= CheckBoxList1.Items.Item(i).Value
Next
End Sub
checkboxlist是由好多checkbox组成的
谢谢你的回复。
问题是我在页面中有很多的checkboxlist,我要取出已选择的值。我的思路是通过历遍页面中所有checkboxlist,然后判断出其中的值;现在的问题是我上面写的程序不知道为什么老是取不到值,是不是我写的程序有毛病?希望大家帮忙看看。