现有代码如下: 有3列要显示时间,现在显示不出来
Dim e As RequestEventArgs = args(0)
\'获取要显示的页
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 7 \'每页10行
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 xm As String = e.Cookies("username") \'取用户名
        xm= DecryptText(xm,"123","123")
        Dim d1 As Date = Date.Today.AddDays(-3)

Dim cmd As New SQLCommand
cmd.C \'记得设置数据源名称
cmd.CommandText = "Select Count(*) Fro m {生产日报表} WHERE 日期 >= \'"

& d1 & "\'and 姓名 = \'" & xm & "\'"
Dim Count As Integer = cmd.ExecuteScalar() \'获取总的行数

cmd.CommandText = "Select * Fro m (Select Row_Number() Over(Order by 日

期 desc) As [NO.],[_Identify],姓名,机台,订单编号,工序,机器时间,单次数

量生产,起始时间,结束时间,实际产量 Fro m {生产日报表} WHERE 日期 >= \'" &

d1 & "\'and 姓名 = \'" & xm & "\') As a "
        \'                                                             

                                    \'产品,客户,数量,单价,日期  "姓

名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结

束时间","实际产量"
cmd.CommandText = cmd.CommandText & "  Where [NO.]>= " & StartRow & "

And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
\'DataTables("订单").DataCols("日期").SetDateTimeFormat

(DateTimeFormatEnum.DateTime)
dt.DataCols("起始时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
    MessageBox.Show(dt.DataRows(0)("起始时间"))
dt.DataCols("结束时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
    MessageBox.Show(dt.DataRows(0)("结束时间"))
dt.DataCols("机器时间").SetDateTimeFormat(DateTimeFormatEnum.LongTime)
    MessageBox.Show(dt.DataRows(0)("机器时间"))
    MessageBox.Show( DataTables("生产日报表").DataRows(0)("机器时间"))

\'生成菜单
Dim wb As New WeUI
With wb.AddActionSheet("","menu") \'设计菜单
    \'.Add("mnudAdd", "增加订单").Attribute="" \'调用

js函数
    \'.Add("mnuEdit", "编辑订单").Attribute =""
    \'.Add("mnuDelete", "删除订单").Attribute =""
\'
    .Add("mnudAdd", "增加报表").Attribute="" \'调用js

函数
    .Add("mnuEdit", "更改报表").Attribute =""
    .Add("mnuDelete", "删除报表").Attribute =""
    .Add("mnuCancel","取消","",True)
End With
\'根据此页数据生成网页
With wb.AddTable("","Table1")
    .PageNumber = page \'设置页码
    .Primarykey = "_Identify" \'设置主键
    .ActiveSheet = "menu" \'设置菜单
    .CreateFro mDataTable(dt)
End With
With wb.AddButtonGroup("","btg2", False) \'生成上一页和下一页按钮
    If page > 0 Then
        .Add("btnPrev", "上一页","","List.htm?page=" & page - 1)
    End If
    If Endrow < count Then
        .Add("btnNext", "下一页","","List.htm?page=" & page + 1)
    End If
End With
With wb.AddButtonGroup("","btg3", False) \'生成上一页和下一页按钮
         .Add("btn6", "返回首页","", "default.htm")
End With
wb.AppendHTML("<script src=\'./lib/table.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)

方法一：

http://www.foxtable.com/mobilehelp/scr/0072.htm

方法二：把datatable装入table控件里面，再显示

http://www.foxtable.com/mobilehelp/scr/0067.htm