以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  同行如何比对最小值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116808)

--  作者：小多米 --  发布时间：2018/3/31 16:14:00 --  同行如何比对最小值

--  作者：有点蓝 --  发布时间：2018/3/31 16:29:00 --   逐列比 Dim min As Integer = 9999999 Dim r As Row = Tables("表A").Current For Each c As Col In Tables("表A").cols     If c.IsNumeric Then         If r(c.Name) < min Then min = r(c.Name)     End If Next msgbox("最小值" & min)