- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 判断重复的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116613)
-- 发布时间：2018/3/28 10:54:00
-- 判断重复的行
如果第一列为字符，第二列为逻辑，如果第一列有重复的 第二列列中就选中。应该怎么判断啊，感谢 感谢
比如第一列 有 A B C
D E F
A C D F 那么 的逻辑列被选中，感谢 感谢
-- 发布时间：2018/3/28 12:51:00
--
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
-- 发布时间：2018/3/28 13:46:00
--
是放到什么事件里面啊 ，感谢 感谢 ，可以是逻辑列吗？感谢 感谢
-- 发布时间：2018/3/28 14:44:00
--
以下是引用yangwenghd在2018/3/28 13:46:00的发言：
是放到什么事件里面啊 ，感谢 感谢 ，可以是逻辑列吗？感谢 感谢
是放到什么事件里面啊 ，感谢 感谢 ，可以是逻辑列吗？感谢 感谢
看懂代码，改写到你datacolchanged事件里面去。如果到现在你还不会看懂和写，回头认真学习foxtable【开发指南】帮助文档。
-- 发布时间：2018/4/1 20:54:00
--
能再帮忙看看吗？判断不错第一列是否重复呢，感谢 感谢
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
e.DataRow("判断列") = False
Else
e.DataRow("判断列") = True
End If
-- 发布时间：2018/4/1 22:12:00
--
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
-- 发布时间：2018/4/1 23:54:00
--
谢谢了，可以是完全相等吗？才被选中吗？ 比如第一列有ab 和a 、ab。只是选中 ab的两行，a的那行再判断有没单独的a 感谢 感谢
-- 发布时间：2018/4/2 8:53:00
--
不明白你什么意思，上传具体实例说明问题。
-- 发布时间：2018/4/2 19:57:00
--
此主题相关图片如下：捕获.png
其实就是第一列有两个和两个完全相同的在判断行选上。感谢 感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:重复判断.table |
-- 发布时间：2018/4/2 20:02:00
--
这么麻烦直接显示重复行，然后TABLE 全部打上对勾