以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求第二大的数值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70555)
--  作者：dj68301367
--  发布时间：2015/6/24 11:48:00
--  求第二大的数值
Dim Vtb As Table = Tables("客户信息管理")
Dim max1 As String
Dim max As String = vtb.Compute("max(客户代码)")

max1 = "JY-" & format(cint(max.SubString(3)) + 1, "000")
msgbox(max1)

我想要MAX不是最大的，而是次大的
--  作者：Bin
--  发布时间：2015/6/24 11:51:00
--  
dim dr as datarow = datatables("客户信息管理").find("","客户代码 DESC",1)
msgbox(dr("客户代码"))
--  作者：大红袍
--  发布时间：2015/6/24 11:52:00
--  

 用find函数，参考

 

Dim dt As DataTable = DataTables("客户信息管理")
Dim fdr As DataRow = dt.Find("", "客户代码 desc", 1)
If fdr Is Nothing Then
    msgbox("没找到")
Else
    msgbox(fdr("客户代码"))
End If

 http://www.foxtable.com/help/topics/0396.htm

 
--  作者：yinyb36
--  发布时间：2015/6/24 11:52:00
--  
Dim Vtb As Table = Tables("客户信息管理")
Dim max1 As String
Dim max As String = vtb.Compute("max(客户代码)","客户代码 < \'" & vtb.Compute("max(客户代码)") & "\'")

max1 = "JY-" & format(cint(max.SubString(3)) + 1, "000")
msgbox(max1)