以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  IF问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118740)
--  作者：jick0526
--  发布时间：2018/5/10 4:50:00
--  IF问题
老师请问下，当A列一样，B列的日期为最新日期时，C列自动输入正确，否则为空，如果A列的代号只有一行，那么这行的日期默认就是最新的，代码要怎么写，谢谢！如图

 A列   B列    C列 
   233   2017-06-05   正确
   526   2017-03-09   
   526   2018-04-02   正确
   721   2018-05-07   正确
   721   2017-09-09   
   721   2018-02-02   
--  作者：y2287958
--  发布时间：2018/5/10 7:53:00
--  
用find
--  作者：有点甜
--  发布时间：2018/5/10 8:49:00
--  

datacolchanged事件

 

Select Case e.DataCol.name
    Case "A", "B"
        Dim drs As List(Of DataRow) = e.DataTable.Select("A = \'" & e.DataRow("A") & "\'", "B desc")
        If drs.count > 0 Then
            drs(0)("c") = "正确"
            For i As Integer = 1 To drs.count-1
                drs(i)("C") = Nothing
            Next
        End If
End Select