'提取此页数据
Dim c md As New SQLCommand
cmd.C '记得设置数据源名称
cmd.C ommandText = "S elect Count(*) From {生产任务通知}"
If flt > "" Then
cmd.C ommandText = cmd.C ommandText & " where " & flt
End If
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
cmd.C ommandText = "S elect * From (S elect Row_Number() Over(Order by 录入时间) As 序号, 单号,录入人 As 下单人,工程名称,开盘时间,计划方量,复核意见,审批意见,终审意见,下单作废,收单作废 From 生产任务通知 "
If flt > "" Then
cmd.C ommandText = cmd.C ommandText & " where " & flt
End If
cmd.C ommandText = cmd.C ommandText & ") As a "
cmd.C ommandText = cmd.C ommandText & " Where 序号>= " & StartRow & " And 序号 <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader '获取该页数据
dt.dataCols("开盘时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)'格式化
dt.dataCols("计划方量").SetFormat("0.00") '格式化
'合成网页
With wb.AddTable("","Table1")
.BooleanSymbol= "是否"
.CreateFromDataTable(dt)
End With
上面代码中，开盘时间列只显示了年月日，我希望再显示 HH:MM 计划方量的显示到是正常，有2位小数
请老师看下，如何能格式化时间
加好友 
发短信
Post By：2020/3/15 16:22:00 [显示全部帖子]
