以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 日期比较 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40241) |
||||
-- 作者:baixiaobai -- 发布时间:2013/9/12 17:38:00 -- 日期比较
表B和表C上都有一个日期列,我想在表A中自动计算出,最早的日期是几号~~
|
||||
-- 作者:Bin -- 发布时间:2013/9/12 17:47:00 -- .
|
||||
-- 作者:baixiaobai -- 发布时间:2013/9/12 17:56:00 -- 如果其中某个表上没有日期的话,那就不显示了呢!! |
||||
-- 作者:Bin -- 发布时间:2013/9/12 17:57:00 -- 那很简单,添加的时候先判断一下结果是否为空再添加即可. |
||||
-- 作者:baixiaobai -- 发布时间:2013/9/12 18:18:00 -- 不是结果,是表B和表C上如果日期列有一个是空的话`那就不显示了呢! 麻烦BIN版再帮我写下呗~ [此贴子已经被作者于2013-9-12 18:32:27编辑过]
|
||||
-- 作者:baixiaobai -- 发布时间:2013/9/12 18:52:00 -- 顶上去~ |
||||
-- 作者:程兴刚 -- 发布时间:2013/9/12 19:03:00 -- For Each dr As DataRow In DataTables("表A").DataRows Dim rlist As new List(of Date) rlist.Add(DataTables("表B").Compute("min(用餐日期)","姓名=\'" & dr("姓名") & "\' and 用餐日期 not is null")) rlist.Add(DataTables("表C").Compute("min(报名日期)","姓名=\'" & dr("姓名") & "\' and 报名日期 not is null")) rlist.sort dr("最早日期")=rlist(0) Next |
||||
-- 作者:baixiaobai -- 发布时间:2013/9/12 19:12:00 -- 这样判断后`还是写不上~最早日期~ |
||||
-- 作者:程兴刚 -- 发布时间:2013/9/12 19:39:00 -- 我这里可以的,其实原来的代码也没问题! [此贴子已经被作者于2013-9-12 19:41:01编辑过]
|
||||
-- 作者:程兴刚 -- 发布时间:2013/9/12 19:43:00 -- Compute自动排除了空值。 |