以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求列中最大的日期(有简便写法吗)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187871)

--  作者:puma
--  发布时间:2023/8/17 13:15:00
--  求列中最大的日期(有简便写法吗)
    Dim d2 As Date = Date.Today
 
    For Each dr1 As DataRow In drs
        d1 = dr1("日期")
        If DateDiff("d", CDate(d1), CDate(d2)) < 0 Then
            d2 = d1
            \'            MessageBox.show( d1 & "大")
        Else
            \'            MessageBox.show( d2 & "大")
        End If
    Next
    Output.Show("最大日期是:" & d2 )

--  作者:有点蓝
--  发布时间:2023/8/17 13:35:00
--  
http://www.foxtable.com/webhelp/topics/0393.htm

Dim d2 As Date = DataTables("订单").Compute("max(数日期)")