- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 要怎样在sql里写，才能把_identify列显示出来？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138491)
-- 发布时间：2019/8/1 18:02:00
-- 要怎样在sql里写，才能把_identify列显示出来？
_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)
-- 发布时间：2019/8/1 20:16:00
--
cmd.CommandText = "S elect * From (S elect Row_Number() Over(Order by 记录时间 desc) As [NO.],[_Identify],设备类型,....
-- 发布时间：2019/8/2 8:30:00
--
框上了还是不行。
此主题相关图片如下：1.png
-- 发布时间：2019/8/2 8:47:00
--
cmd.CommandText = "S elect * From (S elect Row_Number() Over(Order by 记录时间 desc) As [NO.],[_Identify],[_Identify] as ID,设备类型,.... |
-- 发布时间：2019/8/2 9:45:00
--
可以了，再问下，能不能控制每个列的列宽？
-- 发布时间：2019/8/2 10:41:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0071.htm