主题：[求助] 导出逻辑列

 为什么不用excel报表，用表达式就行啊 <iif([某列]=True, "*", "")>

 http://www.foxtable.com/help/topics/0195.htm

If dt.rows(r)(c)=True Then
    Sheet(r + 1, c).Value = "*"
End If

Dim dt As Table = Tables("数据")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        If dt.Cols(c).IsBoolean Then
            If dt.rows(r)(c)=True Then
                Sheet(r + 1, c).Value = "*"
            End If
        Else
            Sheet(r +1, c).Value = dt.rows(r)(c)
        End If
    Next
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

 去看excel报表。看完整

 http://www.foxtable.com/help/topics/0195.htm