以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何获取一个日期列中的最小/大日期  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80529)
--  作者：elmu
--  发布时间：2016/1/25 15:38:00
--  如何获取一个日期列中的最小/大日期
两张table,A表需要引用到B表中一个日期列的最小（远）、大（近）的日期。谢谢老师！
--  作者：linswcfr
--  发布时间：2016/1/25 15:53:00
--  

Dim t1 As Table = Tables("表A")
Dim t2 As DataTable = DataTables("表B")
Dim r1 As Row = t1.AddNew
\'Dim r2 As DataRow = t2.Find("","日期") \'最远日期

Dim r2 As DataRow = t2.Find("","日期 desc") \'最近日期
r1("日期") = r2("日期")
--  作者：Hyphen
--  发布时间：2016/1/25 16:56:00
--  
Dim 最大 = Tables("表A").Compute("max(日期)")
Dim 最小 = Tables("表A").Compute("min(日期)")
--  作者：elmu
--  发布时间：2016/1/26 8:52:00
--  

由于表A日期列中有空数据，Tables("表A").Compute("max(日期)")执行下来是个空数据，于是加了个Filter

Compute("max(完成日期)","完成日期 Is Not Null\'\'")，语句有点问题，没有把日期列中的空白数据过滤掉。求教老师，谢谢！
--  作者：Hyphen
--  发布时间：2016/1/26 9:09:00
--  
说明这个表的 完成日期都是空值