以文本方式查看主题

-  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
--  日期比较

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

表B和表C上都有一个日期列,我想在表A中自动计算出,最早的日期是几号~~

 


--  作者:Bin
--  发布时间:2013/9/12 17:47:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者: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自动排除了空值。