以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示没有可访问的item接受此数目的参数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137057)
--  作者：巷弄太过弯曲
--  发布时间：2019/6/27 10:55:00
--  提示没有可访问的item接受此数目的参数
老师，帮我看一下，提示没有可访问的item接受此数目的参数

        wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True)
        With wb.AddTable("","Table1")
            
            .Alternate = 3
            
            Dim nms() As String = {"单据编号","供应商","单据状态","制单时间"}
            
            .Head.AddRow(nms)
            
            For Each r As DataRow In dt.DataRows     
If r("单据状态") = "审核" Then
With .Body.AddRow()            
.AddCell(r("单据编号"))
.AddCell(r("供应商"))
.AddCell (r("单据状态","class=\'mark\'"))
End With
                   End If
                    Next
                
        End With
--  作者：有点甜
--  发布时间：2019/6/27 11:20:00
--  

 

                        .AddCell (r("单据状态"),"class=\'mark\'")