共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：SQLGroupTableBuilder 生成的统计表中日期列如何显示为正常日期格式？
1楼
liuruihua 发表于：2010/10/19 22:18:00用户已锁定！
2楼
czy 发表于：2010/10/19 23:47:00日期列是双精度小数，不能显示日期格式吧。
3楼
liuruihua 发表于：2010/10/20 7:32:00用户已锁定！
4楼
狐狸爸爸 发表于：2010/10/20 8:16:00应该设置条件，排除某个日期：
b.Filter = “条件”
而不是：
b.Totals.AddExp("日期","iif([日龄] Mod 7=0,[日期],0)","周末日期")
你这样设置，0是数字型，自然将其列作为数字了。
5楼
liuruihua 发表于：2010/10/21 23:35:00用户已锁定！
6楼
czy 发表于：2010/10/22 11:04:00以下是引用liuruihua在2010-10-21 23:35:00的发言：
还是不懂如何实现,请帮帮忙。
还是不懂如何实现,请帮帮忙。
| 下载信息 [文件大小：308.0 KB 下载次数：4] | |
 点击浏览该文件:管理项目1.table |
日期作为统计列，应该是不可以实现以日期格式显示的。
7楼
liuruihua 发表于：2010/10/22 16:53:00用户已锁定！
8楼
czy 发表于：2010/10/22 18:54:00Dim 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)
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)
9楼
liuruihua 发表于：2010/10/22 21:06:00用户已锁定！
共9 条记录, 每页显示 10 条, 页签:
[1]