_identify 列在table里总是显示不出来，要怎么调整？
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim page1 As Integer = 0 '默认page为0,显示第一页
Dim pageRows1 As Integer = 10 '每页10行
If e.GetValues.ContainsKey("page1") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page1"), page1) '提取page参数
End If
Dim StartRow1 As Integer = page1 * pageRows1 + 1 '此页第一行
Dim EndRow1 As Integer = (page1 + 1) * pageRows1 '此页最后一行
'获取该页数据
Dim cmd As New SQLCommand
cmd.C '记得设置数据源名称
cmd.CommandText = "S elect Count(*) From {硬件报障记录表}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
cmd.CommandText = "S elect * From (S elect Row_Number() Over(Order by 记录时间 desc) As [NO.],_Identify,设备类型,所在楼,姓名,电话,记录时间,流转状态 From 硬件报障记录表 where 流转状态 Is null) As a "
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow1 & " And [NO.] <= " & EndRow1
'msgbox(cmd.CommandText)
Dim dt1 As DataTable = cmd.ExecuteReader
With wb.AddTable("","Table1")
.PageNumber = page1 '设置页码
.Primarykey = "_Identify" '设置主键
.CreateFromDataTable(dt1) '从上面的dt加载数据
.ActiveSheet = "menu1" '指定菜单
End With
With wb.AddActionSheet("","menu1") '设计菜单
.Add("mnudjd3","接单").Attribute="" 'jd()表示接单
End With
Dim pa As Integer = Math.Ceiling(Count/pageRows1)
' wb.AppendHTML("<script src='../ajax/libs/menujump.js'></script>")
e.WriteString(pa & "|" & wb.Build)
加好友 
发短信
Post By：2019/8/1 18:02:00 [只看该作者]
此主题相关图片如下：1.png