主题：[求助]窗口表格中的颜色标记问题

把 _Identify 列改成你表格里面的某一列即可（但此列必须唯一），也可以几列一起组合成一个唯一的字符串。

参考

 

Dim str As String = "职务:-1015680|数量:-65536"
Dim ss As String = "职务"
Dim nstr As String = ""
For Each s As String In str.split("|")
    If s.StartsWith(ss) = False Then
        nstr &= s & "|"
    End If
Next
msgbox(nstr.trim("|"))

Dim t As Table = CurrentTable
Dim ls As new List(Of String)
For j As Integer = t.LeftCol To t.RightCol
    Dim ss As String = t.cols(j).name
    ls.add(ss)
Next
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.rows(i)
    Dim str As String = r("颜色记录")
    Dim nstr As String = ""
    For Each s As String In str.split("|")
        Dim name = s.Split(":")(0)
        If ls.Contains(name) = False Then
            nstr &= s & "|"
        End If
    Next
    r("颜色记录") = NSTR
Next