专家坐堂-[求助]Select生成的网页表格如何隐藏指定列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]Select生成的网页表格如何隐藏指定列

用以下代码生成的网页，日期时间列不会显示时间，只显示了日期，就算是加了“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")

[此贴子已经被作者于2020/3/22 13:04:44编辑过]