中间的意思是i的值从1到记录的总条数-1?


什么意思看不懂.
在解释一下。

怎么把记录从数据库写到listbox2中，就是说把这个for ..next语句写完整。

这句可以不用理他了。“中间的意思是i的值从1到记录的总条数－1“

        ListBox2.Items.Clear()
        Dim stkinfo As New stuInfo
        stkinfo = GetInfo(0)
        Dim j As Integer
        Dim Item(6) As String
        For j = 0 To stkinfo.count - 1
            stkinfo = GetInfo(j)
            Item(0) = stkinfo.xuehao
            Item(1) = stkinfo.xingming
            Item(2) = stkinfo.yingyu
            Item(3) = stkinfo.dianzhi
            Item(4) = stkinfo.vc
            Item(5) = stkinfo.shuju
            ListBox2.Items.Insert(j, New ListViewItem(Item))
        Next j

dim reader as sqldatareader
dim cmd as new sqlcommand(strsql,conn)
............

reader=cmd.executeReader
     Do While reader.Read
            For i = 0 To reader.FieldCount - 1
                ListBox1.Items.Add(reader.Item(i) & vbNewLine)
            Next
        Loop

试下看看

Public Function GetInfo(ByVal index As Integer)
        Dim ds As New DataSet
        ds.Clear()
        sqlstr = "SELECT * FROM  student"
        ds = GetDataFromDB(sqlstr)
        Dim stkinfo As New stuInfo
        Try

            If Not ds Is Nothing Then '''''用这句话就可以了 ?????为什么????
                'If ds.Tables(0).Rows.Count > 0 Then'''''用这句话当帐号不存在时就会有异常?????为什么????
                stkinfo.xuehao = ds.Tables(0).Rows(index)("xuehao")
                stkinfo.xingming = ds.Tables(0).Rows(index)("xingming")
                stkinfo.yingyu = ds.Tables(0).Rows(index)("yingyu")
                stkinfo.dianzhi = ds.Tables(0).Rows(index)("dianzhi")
                stkinfo.vc = ds.Tables(0).Rows(index)("vc")
                stkinfo.shuju = ds.Tables(0).Rows(index)("shuju")
                stkinfo.pass = ds.Tables(0).Rows(index)("pass")
                stkinfo.ess = True
                stkinfo.count = ds.Tables(0).Rows.Count
                'Return stkinfo
                ' ElseIf ds Is Nothing Then
            Else
                stkinfo.ess = False ''''当帐号不存在就显示为false
            End If
        Catch ex As Exception
            MessageBox.Show("有异常!!", "提示消息")
        End Try
        Return stkinfo
    End Function

谢谢宝哥，我太爱你了。。