是不是锁定的行点不了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

'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>") '引入脚本文件

查询了以前的数据什么点了没反应，是不是锁定的行点不了

主题：是不是锁定的行点不了