主题：对比列里的数值，取小于等于的

Dim d As Double = 5232
Dim fdr As DataRow = DataTables("表2").Find("平方 >= " & d, "平方")
If fdr IsNot Nothing Then
    msgbox(fdr("平方"))
End If

http://www.foxtable.com/webhelp/scr/0396.htm