主题：网页表格不能高亮显示

通过dt 创建的不行

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .RowHead = 1 '左边第一列作为行头
            .head.AddRow("","部门","姓名","年龄","电话","地址") '表头,行号列标题为空
            .body.AddRow("1","技术部","张三","36","110","中国北京") '数据
            .body.AddRow("2","技术部","李四","38","110","中国上海")
            .body.AddRow("3","技术部","王五","39","110","中国深圳")
            .body.AddRow("4","生产部","赵六","39","110","中国深圳")
            .body.AddRow("5","生产部","刘七","39","110","中国深圳")
        End With
        e.WriteString(wb.Build)
End Select

上面的可以

应该是bug，这样执行看看

 

Dim wb As new WeUI
With wb.AddTable("","Table1")
    .CreateFromDataTable(DataTables("订单"))
    .Highlight = -1  '关闭高亮显示功能
End With

 

或者，执行下面的代码，看生成什么字符

 

Dim wb As new WeUI
With wb.AddTable("","Table1")
    .CreateFromDataTable(DataTables("订单"))
End With

output.show(wb.Build)

 加了这个也没用 .Highlight = -1  '关闭高亮显示功能

Dim wb As new WeUI
With wb.AddTable("","Table1")
    .CreateFromDataTable(DataTables("订单"))
    .Highlight = 0
End With

我这边是没用的

这几个参数我都试过了，对于通过DT生成的表，都没用

 

单独执行这句代码，命令窗口显示什么？

 

Dim wb As new WeUI
With wb.AddTable("","Table1")
    .CreateFromDataTable(DataTables("订单"))
End With

output.show(wb.Build)