Question

我正在做一个使用vb.net生成word文档的项目。从sql server读取记录并生成word文档。读取多个记录。显示记录以表格方式显示。记录dr（0）被读取但无法读取更多记录。

   Dim r As Integer, c As Integer
    oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 5, ListBox1.Items.Count)
    oTable.Range.ParagraphFormat.SpaceAfter = 6

    For c = 1 To ListBox1.Items.Count

        r = 1

        While dr.Read()


            oTable.Cell(r, c).Range.Text = dr(i1).ToString

            r = r + 1
            If r > 5 Then


                Exit While

            End If

        End While
        i1 = i1 + 1
    Next

Answer 1

你的代码看起来很奇怪。请注意，dr.Read（）更改为下一个数据库行。如果不了解您的代码（奇怪的关系而不是非常具有描述性的变量名称），我建议您阅读每一行，然后阅读每一列。

以下是一个例子。

    While dr.Read()
        For c As Integer = 0 To 3
           oTable.Cell(r, c).Range.Text = dr(c).ToString
        Next

        r = r + 1
        If r > 5 Then
            Exit While
        End If

    End While

读数据阅读器中的下一条记录

1 个答案: