以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何自动比较数值后制动填入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54561)
--  作者：181741400
--  发布时间：2014/7/30 17:10:00
--  如何自动比较数值后制动填入
求教：有3列，第一列为最高学历，第二列为在职学历，第三列为全日制学历，在职学历为大专，全日制学历为高中，大专大于高中，最高学历中自动填入大专，如何实现？
--  作者：Bin
--  发布时间：2014/7/30 17:13:00
--  
要有一个学历排序表

上个例子吧.
--  作者：有点甜
--  发布时间：2014/7/30 17:16:00
--  

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