以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何计算日期列的最小值?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7302)

--  作者:抽烟男人
--  发布时间:2010/6/5 14:12: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: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编辑过]

--  作者:狐狸爸爸
--  发布时间:2010/6/5 16:46:00
--  

最大值:

 

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


--  作者:mr725
--  发布时间:2010/6/5 16:49:00
--  

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

 

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

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


--  作者:抽烟男人
--  发布时间:2010/6/5 16:52:00
--  

如果不计算隐藏 的行呢

已有答案

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

--  作者:mr725
--  发布时间:2010/6/5 17:05:00
--  
以下是引用抽烟男人在2010-6-5 16:52:00的发言:

如果不计算隐藏 的行呢

已有答案

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

看5楼的.


--  作者:狐狸爸爸
--  发布时间:2010/6/5 17:20:00
--  

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

 

 


--  作者:reachtone
--  发布时间:2010/6/5 17:33:00
--  
Dim D As Date = DataTables("订单").Compute("Min(日期)", "日期 is not null")
MessageBox.Show(D)

--  作者:狐狸爸爸
--  发布时间:2010/6/5 17:34:00
--  
9楼好