标题：[求助]如何计算日期列的最小值？

1楼

抽烟男人 发表于：2010/6/5 14:12:00

用代码如何获得日期列的最小值？

2楼

mr725 发表于：2010/6/5 16:19:00

Dim dr As DataRow
dr = DataTables("订单").Find("日期 is not null","日期")
Output.Show("最小的日期是:" & dr("日期"))

[此贴子已经被作者于2010-6-5 16:24:16编辑过]

3楼

抽烟男人 发表于：2010/6/5 16:43:00

以下是引用mr725在2010-6-5 16:19:00的发言：
Dim dr As DataRow
dr = DataTables("订单").Find("日期 is not null","日期")
Output.Show("最小的日期是:" & dr("日期"))

[此贴子已经被作者于2010-6-5 16:24:16编辑过]

这样好像要先对表按日期列排序

求最大值呢?

应该还要其它方法吧

[此贴子已经被作者于2010-6-5 16:44:21编辑过]

4楼

狐狸爸爸 发表于：2010/6/5 16:46:00

最大值：

Dim dr As DataRow
dr = DataTables("订单").Find("日期 is not null","日期 Desc")
Output.Show("最小的日期是:" & dr("日期"))

5楼

mr725 发表于：2010/6/5 16:49:00

不是排序啊~ 但是是对datatable的,如果要对当前表Table时,应该这样:

Tables("订单").sort = "日期"
Output.Show("最小的日期是:" & Tables("订单").rows(0)("日期"))

Tables("订单").sort = ""

6楼

抽烟男人 发表于：2010/6/5 16:52:00

如果不计算隐藏的行呢

已有答案

[此贴子已经被作者于2010-6-5 16:54:18编辑过]

7楼

mr725 发表于：2010/6/5 17:05:00

以下是引用抽烟男人在2010-6-5 16:52:00的发言：

如果不计算隐藏的行呢

已有答案

[此贴子已经被作者于2010-6-5 16:54:18编辑过]

看5楼的.

8楼

狐狸爸爸 发表于：2010/6/5 17:20:00

5楼不太好，还是find效率高点。

9楼

reachtone 发表于：2010/6/5 17:33:00

Dim D As Date = DataTables("订单").Compute("Min(日期)", "日期 is not null")
MessageBox.Show(D)

10楼

狐狸爸爸 发表于：2010/6/5 17:34:00

9楼好

共15 条记录, 每页显示 10 条, 页签: [1] [2]