- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动开发，时间显示格式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110737)
-- 发布时间：2017/12/8 13:42:00
-- 移动开发，时间显示格式
老师，您好。
移动开发，手机端无法获得日期中时间点的显示，需要怎么处理？在电脑版中，要显示日期+时间，或者显示日期or时间，都很简单，到移动端，就不知道怎么弄了。
此主题相关图片如下：11a.jpg
此主题相关图片如下：22a.jpg
代码：
****
\'获取该页数据
Dim cmd As New S Q L Command
cmd.C o n necti
cmd.CommandText = "S e l ect Count(*) From {****} where " & flt
Dim Count As Integer = cmd.ExecuteScalar() \'获取总的行数
cmd.CommandText = "S e l ect * From (S e l ect Row_Number() Over(Order by 打卡时间 Desc) As [NO.],[_Identify],打卡时间,操作日期,操作时间 From *** where " & flt &") As a"
cmd.C o m mandText = cmd.CommandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.E xe cuteReader
****
sql数据：
此主题相关图片如下：11a.jpg手机显示效果：
此主题相关图片如下：22a.jpg[此贴子已经被作者于2017/12/8 13:44:04编辑过]
-- 发布时间：2017/12/8 14:12:00
--
用table就可以了
http://www.foxtable.com/mobilehelp/scr/0067.htm
或者这样
http://www.foxtable.com/mobilehelp/scr/0072.htm
[此贴子已经被作者于2017/12/8 15:34:35编辑过]
-- 发布时间：2017/12/8 15:15:00
--
老师，你给的2个链接地址是一样的。
按您链接地址，要做分页的显示的话，要怎么处理？
-- 发布时间：2017/12/8 15:38:00
--
如果是方法一：
http://www.foxtable.com/mobilehelp/scr/0067.htm
根据sql语句生成一个table，然后设置其日期格式，最后生成。
http://www.foxtable.com/webhelp/scr/0695.htm
http://www.foxtable.com/webhelp/scr/1611.htm
-- 发布时间：2017/12/8 15:39:00
--
如果是方法二：
http://www.foxtable.com/mobilehelp/scr/0072.htm
你得到dt表以后，设置日期列格式，然后生成即可。
http://www.foxtable.com/webhelp/scr/1611.htm
-- 发布时间：2017/12/8 16:24:00
--
老师，您好。
你的方法数据是获得了，但不知道分页要怎么处理？
比如用查询表生成的数据：
Dim q As new Q u eryBuilder
Q.C o n necti
q.T a bleName = "统计表1"
q.S e l ectString = "S el ect 类型,打卡时间 From {***}"
q.Build
\'MainTable = Tables("统计表1")
DataTables("统计表1").DataCols("打卡时间").S e tDateTimeFormat(DateTimeFormatEnum.DateLongTime)
老办法的分类代码是这样的，但我不知道怎么去套：
\'获取要显示的页
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 10 \'每页15行
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 \'此页第一行
Dim EndRow As Integer = (page + 1) * pageRows \'此页最后一行
\'获取该页数据
Dim c m d As New S Q L Command
cmd.C o n nection Na me = "wx" \'记得设置数据源名称
cmd.C o mmandText = "S e lect Count(*) From {***} where " & flt
Dim C o unt As Integer = c md.E xecuteScalar() \'获取总的行数
cmd.C o mmandText = "S e lect * From (S e l ect Row_Number() Over(Order by 打卡时间 Desc) As [NO.],[_Identify],打卡时间,操作日期,操作时间 From *** where " & flt &") As a"
cmd.C o mmandText = cmd.C o mmandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.E x ecuteReader
\'根据此页数据生成网页
With wb.AddTable("","Table1")
.PageNumber = page \'设置页码
.Primarykey = "_Identify" \'设置主键
.BooleanSymbol= "√×" \'设置逻辑列(回复)显示形式
.ActiveSheet = "menu" \'设置菜单
.CreateFromDataTable(dt)
End With
-- 发布时间：2017/12/8 16:30:00
--
q.SelectString = "Select 类型,打卡时间 From {***}"
改成
q.SelectString = cmd.CommandText
--------------
最后
.CreateFromDataTable(dt)
改成
.CreateFromTable(Tables("统计表1"))