Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于日期，求教大家！


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

主题：关于日期，求教大家！
帅哥哟，离线，有人找我吗？
grvictor
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：59 积分：1209 威望：0 精华：0 注册：2013/11/21 7:38:00 		关于日期，求教大家！  发帖心情 Post By：2013/11/30 9:11:00 [只看该作者]

现在有两列，A列是时间，B列是人。如何找出同一人名下的最晚时间？并且如果找到的时间比今天小7天的话，标记为红色？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/30 9:19:00 [只看该作者]

Dim dr As DataRow = DataTables("表A").Find("B列='张三'","A列 DESC")
MessageBox.show("张三最晚时间为" & dr("A列"))



标出单元格




图片点击可在新窗口打开查看

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
 回到顶部
帅哥哟，离线，有人找我吗？
grvictor
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：59 积分：1209 威望：0 精华：0 注册：2013/11/21 7:38:00 		  发帖心情 Post By：2013/11/30 9:21:00 [只看该作者]

谢谢！！

 回到顶部
帅哥哟，离线，有人找我吗？
mosquito1003
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：350 积分：3142 威望：0 精华：0 注册：2012/12/6 18:05:00 		  发帖心情 Post By：2013/11/30 9:22:00 [只看该作者]

事先定义好“样式一”
在表属性，DrawCell 中输入一下的代码
Dim nms as List (Of String) = DataTables("表名").GetValues("B列")
Dim d as Date
For each nms0 as string in nms
d= DataTables("表名").Compute("Max(A列)","B列 = ‘“ & nms0 & ”’")
if e.Row（“ A列”）= d And e.Row("B列") = nms0 then
   e.Style = "样式一"
end if
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询