主题：判断重复的行

如果第一列为字符，第二列为逻辑，如果第一列有重复的 第二列列中就选中。应该怎么判断啊，感谢 感谢 

Dim str As String = "ABCDEF123"
Dim flag As Boolean = False
For i As Integer = 0 To str.length-2
    If str.substring(i+1).indexof(str(i)) >= 0then
        flag = True
        Exit For
    End If
Next
If flag Then
    msgbox("重复")
Else
    msgbox("不重复")
End If

是放到什么事件里面啊 ，感谢 感谢 ，可以是逻辑列吗？感谢 感谢

 

看懂代码，改写到你datacolchanged事件里面去。如果到现在你还不会看懂和写，回头认真学习foxtable【开发指南】帮助文档。

If e.DataCol.name = "第一列" Then
    Dim str As String = e.DataRow("第一列")
    Dim flag As Boolean = False
    For i As Integer = 0 To str.length-2
        If str.substring(i+1).indexof(str(i)) >= 0then
            flag = True
            Exit For
        End If
    Next
    If flag Then
        e.DataRow("判断列") = False
    Else
        e.DataRow("判断列") = True
    End If
End If

谢谢了，可以是完全相等吗？才被选中吗？ 比如第一列有ab 和a  、ab。只是选中 ab的两行，a的那行再判断有没单独的a 感谢 感谢

不明白你什么意思，上传具体实例说明问题。

此主题相关图片如下：捕获.png

其实就是第一列有两个和两个完全相同的在判断行选上。感谢 感谢 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:重复判断.table

这么麻烦直接显示重复行，然后TABLE 全部打上对勾