导出表数据到EXCEL中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目前有个表“扫码数据表” 在Drawcell 事件中写了代码

Dim drs As Integer

drs = e.Table.DataTable.Select("[产品防伪码] = '" & e.Row("产品防伪码") & "'").Count

If drs > 1 Then

e.Style = "重复"

End If

此主题相关图片如下：on3)x8ryc6erq`8l)(j4.png

如果码重复就标记为红颜色

想将这个表导出到EXCEL中的时候导出的数据重复行业带红颜色！如何实现，请大家帮忙！谢谢！

Dim dt As Table = Tables("扫码数据表")

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim Style As Xls.Style = Book.NewStyle '新建一个样式

Style.BackColor = Color.Red '样式的背景颜色设为红色

For c As Integer = 0 To dt.Cols.Count -1 '添加列标题

Sheet(0, c).Value = dt.Cols(c).Name

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

For c As Integer = 0 To dt.Cols.Count -1

Sheet(r +1, c).Value = dt.rows(r)(c)

'打开工作簿

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Dim St2 As XLS.Style = Book.NewStyle

St2.Format = "yyyy-MM-dd"

Sheet.Cols(dt.Cols("扫码时间").Index).Style = st2

Proc.Start()

主题：导出表数据到EXCEL中