主题：请教实例

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.Select("第四列 is not null")
    Dim dr1 As DataRow = dt.Find("第三列 >= " & dr("第四列"), "第三列")
    Dim dr2 As DataRow = dt.Find("第三列 <= " & dr("第四列"), "第三列 desc")
    Dim s As String = ""

    If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
        If dr1("第三列")-dr("第四列") <= dr("第四列") - dr2("第三列") Then
            s = dr1("第一列")
        Else
            s = dr2("第一列")
        End If
    ElseIf dr1 IsNot Nothing Then
        s = dr1("第一列")
    ElseIf dr2 IsNot Nothing Then
        s = dr2("第一列")
    End If
    dr("第五列") = s
Next

方法一：计算和第三列每一行的差值，然后得到一个最小的，然后得到对应某一行；

方法二：利用find查找，先排序，到大于、小于的两行，然后比较两行的差值。