以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SQLGroupTableBuilder 生成的统计表中日期列如何显示为正常日期格式？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8406)
--  作者：czy
--  发布时间：2010/10/19 23:47:00
--  
日期列是双精度小数，不能显示日期格式吧。
--  作者：狐狸爸爸
--  发布时间：2010/10/20 8:16:00
--  

应该设置条件，排除某个日期：

 

b.Filter = “条件”

 

而不是：

 

b.Totals.AddExp("日期","iif([日龄] Mod 7=0,[日期],0)","周末日期")

 

你这样设置，0是数字型，自然将其列作为数字了。

 
--  作者：czy
--  发布时间：2010/10/22 11:04:00
--  
以下是引用liuruihua在2010-10-21 23:35:00的发言：
还是不懂如何实现,请帮帮忙。
 下载信息  [文件大小：308.0 KB  下载次数：4]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

 

日期作为统计列，应该是不可以实现以日期格式显示的。
--  作者：czy
--  发布时间：2010/10/22 18:54:00
--  
Dim cmb As WinForm.TextBox = e.Form.Controls("TextBox1")
If cmb.value=Nothing Then
    Return
End If
Dim b As New SQLGroupTableBuilder("统计表1","表A")
b.Groups.AddDef("批次")
b.filter="批次=\'" & cmb.value & "\'"
b.Groups.AddDef("周龄")
b.Totals.AddDef("产蛋量")
b.TableVisible = False
b.Build
DataTables("统计表1").DataCols.Add("周末日期", Gettype(Date))
For Each dr As DataRow In DataTables("统计表1").DataRows
    Dim dr1 As DataRow
    dr1 = DataTables("表A").Find("批次 = \'" & dr("批次") & "\' And 周龄 = " & dr("周龄"),"日期 Desc")
    dr("周末日期") = dr1("日期")
Next
Tables("窗口1_table1").DataSource =DataTables("统计表1")
Tables("窗口1_table1").Cols("周末日期").Move(1)