主题：一个新的计算方式，希望能指点一下！！

Dim wd As Double = 3.2
Dim md As Double = 0.758
Dim dt1 As DataRow = DataTables("标准表").Find("温度 <= " & wd, "温度 desc")
Dim dt2 As DataRow = DataTables("标准表").Find("温度 >= " & wd, "温度")
Dim fdr As DataRow
If wd - dt1("温度") <= dt2("温度") - wd Then
    fdr = dt1
Else
    fdr = dt2
End If
Dim cname As String = ""
Dim min As Double = 999
For Each dc As DataCol In  DataTables("标准表").DataCols
    If dc.name .StartsWith("D") Then
        Dim jsz As Double = dc.name.replace("D", "") / 1000 * fdr(dc.name)
        If Math.Abs(jsz-md) < min Then
            min = Math.Abs(jsz-md)
            cname = dc.name
        End If
    End If
Next

msgbox(fdr("温度") & " " & cname)