主题：[求助]通过已知信息值，判断值在另一表中的前后区间

datacolchanged事件

Select Case e.DataCol.name
    Case "调整前","等级","差额"
        Dim fdr As DataRow = DataTables("标准表").Find("等级 = '" & e.DataRow("等级") & "'")
        If fdr IsNot Nothing Then
            Dim t As Table = Tables("标准表")
            For i As Integer = 2 To t.Cols.count-1
                If fdr(t.Cols(i).name) >= e.DataRow("调整前") Then
                    e.DataRow("区间前项") = fdr(t.Cols(i-1).name)
                    e.DataRow("区间前项对应档") = i-1
                    Exit For
                End If
            Next           
            For i As Integer = 1 To t.Cols.count-1
                If fdr(t.Cols(i).name) >= e.DataRow("调整后") Then
                    e.DataRow("区间后项") = fdr(t.Cols(i).name)
                    e.DataRow("区间后项对应档") = i
                    Exit For
                End If
            Next
        End If
End Select