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