主题：求教:判断某列相同编号的最大值

此主题相关图片如下：32.jpg

你好,谢谢你!

 

Dim ls As New List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
    Dim name As String = dr("第一列").substring(0, dr("第一列").indexof("-"))
    If ls.Contains(name) = False Then
        ls.Add(name)
        Dim fdr As DataRow = DataTables("表A").Find("第一列 like '" & name & "-*'", "第一列 desc")
        fdr("第二列") = "有效"
    End If
Next

 

这样还是不行,

例如,应该这样:

AA-001       [无效]

AA-002       [无效]

AA-003       [有效]

BB-001       [有效]

CC-001       [有效]

CC-002       [有效]

相同名称,有不同序号号时,小序号应该变为[无效],最大的那个应该为 [有效]