UC知道帮看下下边这段vb代码
来源：百度知道 编辑：UC知道 时间：2024/07/08 21:21:29
For a = 1 To 5
If Me.FindControl("check" & a)(0).Value + Me.FindControl _("check" & a)(1).Value + Me.FindControl("check" & a)(2).Value _ + Me.FindControl("check" & a)(3).Value + Me.Find _
Control("check" & a)(4).Value = 1 Then
Select Case a
Case 1
If Check1(0).Value = 1 Then
Check2(0).Value = 0
Check3(0).Value = 0
Check4(0).Value = 0
Check5(0).Value = 0
ElseIf Check1(1).Value = 1 Then
Check2(1).Value = 0
Check3(1).Value = 0
Check4(1).Value = 0
Check5(1).Value = 0
ElseIf Check1(2).Value = 1 Then
Check2(2).Value = 0
Check3(2).Value = 0
Check4(2).Value = 0
If Me.FindControl("check" & a)(0).Value + Me.FindControl _("check" & a)(1).Value + Me.FindControl("check" & a)(2).Value _ + Me.FindControl("check" & a)(3).Value + Me.Find _
Control("check" & a)(4).Value = 1 Then
Select Case a
Case 1
If Check1(0).Value = 1 Then
Check2(0).Value = 0
Check3(0).Value = 0
Check4(0).Value = 0
Check5(0).Value = 0
ElseIf Check1(1).Value = 1 Then
Check2(1).Value = 0
Check3(1).Value = 0
Check4(1).Value = 0
Check5(1).Value = 0
ElseIf Check1(2).Value = 1 Then
Check2(2).Value = 0
Check3(2).Value = 0
Check4(2).Value = 0
呃，不好意思，是我搞混了，VB中的确没有那个方法。
帮你找了下，VB中貌似最简单的就是用ScriptControl控件来实现了
这个控件需要你下载安装。
如果你的系统是正版的，可以到微软官方下载
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=D05FCF37-4D9F-4769-9442-0BCEEF907033
如果不是，那么你在网上搜索“ScriptControl”可以找到。
关于这个控件的使用方法，你可以看下这个例子：http://zhidao.baidu.com/question/41227249.html
VB中没有FindControl这个属性或方法,您可能学过别的语言了吧!
确实没这个方法，难道是.net.
自己编嘛！干嘛下载呢？