Foxtable(狐表)用户栏目专家坐堂 → 按项目升序后,如何标记没有按时间升序的行,


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

主题:按项目升序后,如何标记没有按时间升序的行,

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


加好友 发短信
等级:童狐 帖子:202 积分:2470 威望:0 精华:0 注册:2011/12/14 20:48:00
按项目升序后,如何标记没有按时间升序的行,  发帖心情 Post By:2012/11/23 14:43:00 [只看该作者]

按项目升序后,如何标记
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

没有按时间升序的行,

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/23 14:54:00 [只看该作者]

 何为之没有按照升序排列的行?标准是什么。

 比如

2012-10-25
2012-10-23
2012-10-22
2012-10-24
2012-10-29

 其中,那些是没有按照的?中间三行?以第一行为标准?

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


加好友 发短信
等级:童狐 帖子:202 积分:2470 威望:0 精华:0 注册:2011/12/14 20:48:00
  发帖心情 Post By:2012/11/23 14:56:00 [只看该作者]

是的,没说清楚,时间上就是下一行要比上一行大,逐行比较,以第一行为标准
[此贴子已经被作者于2012-11-23 14:56:24编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/23 16:08:00 [只看该作者]

以下是引用lsfdf在2012-11-23 14:56:00的发言:
是的,没说清楚,时间上就是下一行要比上一行大,逐行比较,以第一行为标准
[此贴子已经被作者于2012-11-23 14:56:24编辑过]

每一行跟上一行比较,还是跟第一行比较?

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


加好友 发短信
等级:童狐 帖子:202 积分:2470 威望:0 精华:0 注册:2011/12/14 20:48:00
  发帖心情 Post By:2012/11/23 16:29:00 [只看该作者]

就是第二行更第一行,第三行更第二行,以此类推

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/23 16:40:00 [只看该作者]

 如例子……

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



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


加好友 发短信
等级:童狐 帖子:202 积分:2470 威望:0 精华:0 注册:2011/12/14 20:48:00
  发帖心情 Post By:2012/11/23 23:15:00 [只看该作者]

谢谢,还需判断个空值才行

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/24 8:56:00 [只看该作者]

以下是引用lsfdf在2012-11-23 23:15:00的发言:
谢谢,还需判断个空值才行

嗯嗯,最后代码。

Select Case e.Col.Name
    Case "日期"
        If e.Row.Index > 0 Then
            If e.Text = "" OrElse e.Table.Rows(e.Row.Index-1).IsNull(e.Col.Name) OrElse  CDate(e.Text) < CDate(e.Table.Rows(e.Row.Index-1)(e.Col.Name)) Then
                e.Style = "我设置的样式"
            End If
        End If
End Select

 回到顶部