打算把表中内容加上章、节编号导出文本。类似如下：

4. 运行手册文件管理【121.42(d)】

4.1.  手册文件管理系统【CCAR-121.131(a)】

4.1.1.   概述

    公司建立符合法律、法规和规章要求的手册标准体系。

4.1.2.   手册管理组织机构图

4.1.3.   手册管理职责

4.1.3.1.    总裁

1)  对公司手册体系的有效性负责；

2)  负责批准公司级手册。

使用代码如下：

Dim str As String

Dim drs As List(Of DataRow)

drs = DataTables("手册").Select("选择 = false")

If drs IsNot Nothing Then

    For i As Integer = 0 To drs.count-1

        Dim dr As DataRow = drs(i)

        If dr("章") IsNot Nothing Then

            str = str & dr("章") & dr("内容") & vbcrlf

        End If

        If dr("章") Is Nothing And dr("节") IsNot Nothing Then

            str & = str & "   " & dr("节") & dr("内容") & vbcrlf

        End If

        If dr("章") Is Nothing And dr("节") Is Nothing And dr("小节") IsNot Nothing Then

            str & = str & "      " & dr("小节") & dr("内容") & vbcrlf

        End If

        If dr("章") Is Nothing And dr("节") Is Nothing And dr("小节") Is Nothing And dr("一") IsNot Nothing Then

            str & = str & "           " & dr("一") & dr("内容") & vbcrlf

        End If               

        'output.Show(str)

    Next

End If

但是导出的文本没有前面编号，求解，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出文本.zip

Dim tm As String  = ProjectPath & "Attachments\手册模板.doc" '指定模板文件

Dim fl As String = ProjectPath & "Reports\手册模板.doc" '指定目标文件

Dim wrt As New WordReport(Tables("运行总手册"),tm,fl) '定义一个WordReport

wrt.Replace("[第4章]",str)

wrt.Build()

wrt.Show()