以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  是不是锁定的行点不了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174761)
--  作者：qazlinle6
--  发布时间：2022/1/29 20:26:00
--  是不是锁定的行点不了
 With wb.AddTable("","Table1")
            
            .Alternate = 2 \'每两行显示一个不同背景颜色的行
            .RowHead = 0
            
            .AfterSelChange = "dynaActiveSheet()" \'置顶选择不同单元格后要执行的js行数,注意区分大小写
            .ActiveSheet = "menu"
            .head.AddRow("店名","编号","改单申请","改单申请","改单申请","改单申请") \'表头
            Dim nms() As String = {"店名","编号","备注","原金额","时间","结果"}
            .Head.AddRow(nms)
            For Each r As DataRow In dt.DataRows
                Dim k1 As String =r("店名").SUBSTRING(4,1)&"店"
                Dim k As String =r("编号").SUBSTRING(13)
                With .Body.AddRow(k1)
                    .AddCell(k)
                    .AddCell(r("改单申请备注")) \'逐个单元格增加
                    .AddCell(r("改单申请原金额")) \'逐个单元格增加
                    .AddCell(Format(r("改单申请时间"),"HH:mm"))
                    .AddCell(r("改单申请结果"))
                    .Primarykey = r("_Identify") \'设置主键
                End With
            Next
            
            \'Dim aa01 As Double = dt.compute("sum(金额)"," " )
            \'Dim aa02 As Double = dt.compute("sum(实际金额)"," " )
            \'
            \'\' Dim aa02 As Double = dt.compute("sum(实收刷卡积分)"," " )
            \'
            \'With .body.AddRow
            \'.Attribute = "style=\'background-color:#F0FFFF\'"
            \'.AddCell("合计","colspan=5")
            \'.AddCell(aa01)
            \'.AddCell(aa02)
            \'End With
            \'
            
        End With

        With wb.AddActionSheet("","menu") \'设计菜单
            .Add("menu1", "通过").Attribute ="  " \'调用js
            .Add("menu2", "修改").Attribute ="  " \'调用js
            .Add("menu3","取消","",True)
        End With

        wb.AppendHTML("<style>table.fox_table{text-align: center;}</style>",True)
        wb.AppendHTML("<script src=\'./lib/table.js\'></script>") \'引入脚本文件
        wb.AppendHTML("<script src=\'./lib/activesheet.js\'></script>") \'引入脚本文件
        
查询了以前的数据什么点了没反应，是不是锁定的行点不了
--  作者：有点蓝
--  发布时间：2022/2/5 10:20:00
--  
foxtable的锁定行功能不可能会影响到前端，肯定是自己代码逻辑有问题