Foxtable(狐表)用户栏目专家坐堂 → [求助]如何计算日期列的最小值?


  共有17759人关注过本帖树形打印复制链接

主题:[求助]如何计算日期列的最小值?

帅哥哟,离线,有人找我吗?
抽烟男人
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:473 威望:0 精华:0 注册:2008/8/31 22:34:00
[求助]如何计算日期列的最小值?  发帖心情 Post By:2010/6/5 14:12:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:473 威望:0 精华:0 注册:2008/8/31 22:34:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/6/5 16:46:00 [只看该作者]

最大值:

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/6/5 16:49:00 [只看该作者]

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

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
抽烟男人
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:473 威望:0 精华:0 注册:2008/8/31 22:34:00
  发帖心情 Post By:2010/6/5 16:52:00 [只看该作者]

如果不计算隐藏 的行呢

已有答案

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/6/5 17:05:00 [只看该作者]

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

如果不计算隐藏 的行呢

已有答案

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

看5楼的.


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/6/5 17:20:00 [只看该作者]

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
reachtone
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:版主 帖子:1993 积分:19409 威望:0 精华:20 注册:2008/9/2 10:09:00
  发帖心情 Post By:2010/6/5 17:33:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/6/5 17:34:00 [只看该作者]

9楼好

 回到顶部
总数 15 1 2 下一页