以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]computer 的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141791)
--  作者：81538475
--  发布时间：2019/10/11 0:10:00
--  [求助]computer 的问题
计算日期列的最大值，结果有问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


Dim n As Integer = 0
Dim ns As new List(of String)
For Each c As Col In Tables("xmfp").cols
    If c.IsDate Then
       ns.Add(c.Name)
    End If
Next

\'Dim jdi As String

For i As Integer = 0 To ns.Count - 1
 Dim jdi As Date = Tables("xmfp").Compute("Max(ns(i))")
Output.Show(jdi)
Output.Show(ns(i))
Next
--  作者：有点蓝
--  发布时间：2019/10/11 9:14:00
--  
Dim jdi As Date = Tables("xmfp").Compute("Max(" & ns(i) & ")")