用以下代码生成的网页，日期时间列不会显示时间，只显示了日期，就算是加了“dt.dataCols("开盘日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)'格式化”也没用，另一种手工编码生成的办法感觉有点复杂，我用了另一种办法，就是在表格中加了一列文本列，再将日期值给此文本列，就能用Format随意控制显示格式了，但这样一来，我想隐藏掉原来的“开盘日期”列，应该如何做呢？请老师指导下，谢谢！
Dim ppyf As String '匹配已发量
ppyf = "(s elect Sum(发货量) f rom {销售出库} b where c.通知单号 = b.通知单号 And b.状态 = '有效' And b.审核 = 1) As 已发量"
cmd.CommandText = "S elect *,(isnull(计划方量,0) - isnull(已发量,0)) As 待发量 From (Select Row_Number() Over(Order by 通知单号) As 序号, c.[_Identify],c.通知单号,c.工程名称,c.业务员,c.开盘时间 As 开盘日期,'' As 开盘时间,c.计划方量," & ppyf & " F rom {生产计划排单} As c "
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt
End If
cmd.CommandText = cmd.CommandText & ") As a "
cmd.CommandText = cmd.CommandText & " Where 序号>= " & StartRow & " And 序号 <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader '获取该页数据
‘dt.dataCols("开盘日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)'格式化 无用
‘dt.dataCols("计划方量").SetFormat("0.00") '格式化
For i As Integer = 0 To dt.DataRows.count - 1
Dim r As DataRow = dt.DataRows(i)
r("开盘时间") = Format(r("开盘日期"),"hh:mm")
Next
[此贴子已经被作者于2020/3/22 13:04:44编辑过]
加好友 
发短信
Post By：2020/3/22 10:48:00 [只看该作者]
