网页表格不能高亮显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网页表格不能高亮显示

共有2198人关注过本帖树形打印复制链接主题：网页表格不能高亮显示

zhy400137

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

网页表格不能高亮显示 发帖心情

Post By：2017/6/9 9:16:00 [显示全部帖子]

用下面代码生成的表格，在浏览器不能高亮显示。

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim flt As String

If e.PostValues.ContainsKey("barcode") Then

flt = "条码 = '" & e.PostValues("barcode") & "'"

End If

If e.PostValues.ContainsKey("fsname") Then

If flt > "" Then

flt = flt & " or "

End If

flt = flt & "商品名称 Like '%" & e.PostValues("fsname") & "%'"

End If

Dim cmd As new SQLCommand

cmd.ConnectionName = DataSource

cmd.CommandText= "s elect * From 实时库存2017年"

If flt > "" Then

cmd.CommandText = cmd.CommandText & " where " & flt

End If

Dim dt As DataTable = cmd.ExecuteReader

With wb.AddTable("","Table1")

.Primarykey = "商品序号" '设置主键

.CreateFromDataTable(dt)

End With

With wb.AddButtonGroup("","btg1",False)

.Add("btn1", "重新统计", "button").Attribute= """

.Add("btn2", "返回首页","button","default.htm")

End With

wb.AddForm("","form1","getimg.htm")

With wb.AddButtonGroup("form1","btg2",True) '垂直排列

.Add("btn3", "查看图片")

End With

e.WriteString(wb.Build)

请教是为什么，谢谢！

zhy400137

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 9:41:00 [显示全部帖子]

直接用帮助的例子也不行

zhy400137

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 9:45:00 [显示全部帖子]

可以，但要换浏览器！谢谢

zhy400137

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 9:49:00 [显示全部帖子]

但，用DT创建的就是不可以。

zhy400137

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 9:51:00 [显示全部帖子]

.Highlight = 0 加了这句也不行

zhy400137

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 10:10:00 [显示全部帖子]

Foxtable最新版了

我手机上一般用火狐和小米自带浏览器

另外不太想在电脑上测试，因为最终是要在手机上用的，电脑上行手机上不行，也没用，谢谢！

zhy400137

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 10:19:00 [显示全部帖子]

现在在电脑上用360浏览器也不行

zhy400137

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 10:21:00 [显示全部帖子]

通过dt 创建的不行

zhy400137

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 10:21:00 [显示全部帖子]

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

zhy400137

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00

Post By：2017/6/9 10:22:00 [显示全部帖子]

上面的可以

下一主题 >> << 上一主题

总数 14 1 2 下一页

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