请教关于VB.NET简单数组问题

[fqw991]

Dim X As Integer

Dim name(15) As String
For i = 0 To 14
name(I) = "Student" & CStr(I)
Next I

Dim Check(15) As String '定义Check数组
For X = 0 To 15
name(X) = "CheckBox" & CStr(X)
Next
=====================================================

Dim Checkbox(15) As Object
Dim Student(15) As Object

If Me.CheckBox1.Checked = True Then '把
Student(0) = "T_010101"
Checkbox(0) = True
ElseIf Me.CheckBox1.Checked = False Then
Student(0) = "T_010101"
Checkbox(0) = False
End If

===========================================

'如何把取到的数组Student进行循环? 程序里Student有16个元素,其中头一个值是T_010101,如何把它放到查询语句里?


For J = 0 To (Student(J).Length - 1)

Dim mytable As DataTable = myDataSet("select * from adminuser2 where role='" & ComboBox1.Text & "' and Menu_No='" & Student(J) & "'").Tables(0)

If mytable.Rows.Count >= 1 Then
MsgBox("存在纪录")
End If
Next J

[standhong]

1: Friend Structure data
dim value as string
End Structure
public Student(15) as data

首先要知道Student(15)个数组的值,例如: student(0).value=""/student(1).value=""....student(15).value=" "

2:
For J = 0 To Student.Length - 1

Dim mytable As DataTable = myDataSet("select * from adminuser2 where role='" & ComboBox1.Text & "' and Menu_No='" & Student(J).value"'").Tables(0)

If mytable.Rows.Count >= 1 Then
MsgBox("存在纪录")
End If
Next J

[jerry0814]

进来学习

[lgx1972]

控件数组？

[Joannaz_924]

LOOK 一下