以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 导出记录带颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139251)
--  作者：leoli
--  发布时间：2019/8/8 23:27:00
--  [求助] 导出记录带颜色

请问表A中 第二例是带颜色背景的，导出后出现的都是颜色代码，如何导出后显示的也是颜色呢？
--  作者：有点蓝
--  发布时间：2019/8/9 8:52:00
--  
怎么设置的颜色背景？
--  作者：leoli
--  发布时间：2019/8/9 23:48:00
--  

如下

 

 For Each dr As DataRow In DataTables("list").DataRows
       
        Dim ds As DataRow = DataTables("工件").Find("PartNo=\'" & dr("PartNo") & "\'And 基件=\'件\'")
       
        If ds IsNot Nothing Then
             If dr("总缺数量") < 0
                dr("颜色状态") = Color.red.Toargb        

             ElseIf dr("零件总数量") = 0 AndAlso dr("零件总缺数量") = 0
                dr("颜色状态") = Color.MediumSpringGreen.Toargb         

            ElseIf  dr("零件总量") > 0 AndAlso dr("零件总量") = 0
                dr("颜色状态") = Color.yellow.Toargb         

End if

End if

--  作者：有点蓝
--  发布时间：2019/8/10 8:33:00
--  
只有下面2种方式可以导出表格样式

其它方式导出的，只能事后使用代码设置样式：http://www.foxtable.com/webhelp/topics/1146.htm