专家坐堂-找到MAX值的行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  找到MAX值的行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70300)

--  作者：一笑
--  发布时间：2015/6/18 15:42:00
--  找到MAX值的行
可以用find在DataTable查找符合条件的行,比如：
Dim dr As DataRow
dr = DataTables("订单").Find("数量 > 1000")
可否找到数量列中值最大的那一行？谢谢

--  作者：Bin
--  发布时间：2015/6/18 15:45:00
--
http://www.foxtable.com/help/topics/0393.htm

--  作者：Bin
--  发布时间：2015/6/18 15:46:00
--
Dim cnt As Integer
cnt = DataTables("订单").Compute("MAX([数量])")
Output.Show("最大数:" & cnt)

--  作者：一笑
--  发布时间：2015/6/18 21:36:00
--
意思有点误解，上面这么简单的会。我是想类似以下，找到数量最大值这一行（不需得出该最大值），然后跨表引用：

Dim dr As DataRow
        dr = DataTables("产品").Find("MAX([数量]")
        If dr IsNot Nothing Then
            e.DataRow("单价") = dr("单价")
        End If

--  作者：大红袍
--  发布时间：2015/6/18 21:37:00
--
Dim dr As DataRow
dr = DataTables("产品").Find("","数量 desc")
If dr IsNot Nothing Then
    e.DataRow("单价") = dr("单价")
End If