主题：如何自动比较数值后制动填入

求教：有3列，第一列为最高学历，第二列为在职学历，第三列为全日制学历，在职学历为大专，全日制学历为高中，大专大于高中，最高学历中自动填入大专，如何实现？

要有一个学历排序表

Datacolchanged事件

 

Select Case e.DataCol.name
    Case "最高学历","在职学历","全日制学历"
        Dim xls() As String = {"本科", "大专", "高中"}
        For Each xl As String In xls
            If e.DataRow("在职学历") = xl OrElse e.DataRow("全日制学历") = xl Then
                e.DataRow("最高学历") = xl
                Exit For
            End If
        Next      
End Select