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>") '引入脚本文件
查询了以前的数据什么点了没反应,是不是锁定的行点不了