主题：导出文本

Dim str As String = ""

Dim drs As List(Of DataRow)

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

For i As Integer = 0 To drs.count-1
   
    Dim dr As DataRow = drs(i)
    If dr.Isnull("章") = False Then
       
        str = str & dr("章") & dr("内容") & vbcrlf
       
    End If
   
   
   
    If dr.isnull("节") = False Then
       
        str = str & "   " & dr("节") & dr("内容") & vbcrlf
       
    End If
   
   
   
    If dr.Isnull("小节") = False Then
       
        str = str & "      " & dr("小节") & dr("内容") & vbcrlf
       
    End If
   
    If dr.isnull("一") = False Then
       
        str = str & "           " & dr("一") & dr("内容") & vbcrlf
       
    End If
   
   
Next

output.Show(str)