- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求查找重复行代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152587)
-- 发布时间：2020/7/15 20:12:00
-- 求查找重复行代码
蓝老师：您好
帮我看看下面代码的问题
For i As Integer = 1 To Tables("表A").rows.count- 1
If Tables("表A").rows(i)("第一列","第二列") = Tables("表A").rows(i-1)("第一列","第二列") Then
Tables("表A").rows(i)("第四列") = "与第" & i &"相同"
End If
Next
-- 发布时间：2020/7/16 8:56:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83243
-- 发布时间：2020/7/16 12:12:00
--
我不是想筛选，是要找出重复数据，并给予说明，达到效果：
此主题相关图片如下：qq图片20200716121329.png
窗体按钮代码：
Dim t As Table = Tables("表A")
For nm As Integer = 0 To t.cols.count-1
For i As Integer = 0 To Tables("表A").rows.count- 1
For j As Integer = 0 To Tables("表A").cols.count-1
If Tables("表A").rows(i,j)(nm) = Tables("表A").rows(i-1,j)(nm) Then
Tables("表A").rows(i)("第四列") ="与第"& i & "行数据相同"
End If
Next
Next
Next
[此贴子已经被作者于2020/7/16 12:15:35编辑过]
-- 发布时间：2020/7/16 14:20:00
--
For i As Integer = 1 To Tables("表A").rows.count- 1
Dim r As Row = Tables("表A").rows(i)
Dim idx As Integer = Tables("表A").FindRow("第一列=\'" & r("第一列") & "\' And 第二列 =\'" & r("第二列") & "\' and 第三列=\'" & r("第三列") & "\' and _sortkey <" & r("_sortkey"))
If idx > -1 Then r("第四列") ="与第" & Idx+1 & "行数据相同"
Next
-- 发布时间：2020/7/17 2:18:00
--
追问
下面的匹配相同的字段，能否通过另外一个窗口的字段设置，比如从ListBox列表中提取，该怎么做？论坛上有没有实例参考
Dim idx As Integer = Tables("表A").FindRow("第一列=\'" & r("第一列") & "\' And 第二列 =\'" & r("第二列") & "\' and 第三列=\'" & r("第三列") & "\' and _sortkey <" & r("_sortkey"))
谢谢兰老师了！！！
-- 发布时间：2020/7/17 8:58:00
--
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
dim s as string = "1=2"
For i As Integer = 0 To lst.Items.Count - 1
For i As Integer = 0 To lst.Items.Count - 1
s = s & " and " & lst.Items(i) & "=\'" & r(lst.Items(i)) & "\'"
Next
Next
msgbox(s)
Dim idx As Integer = Tables("表A").FindRow(s & " and _sortkey <" & r("_sortkey"))
-- 发布时间：2020/7/18 1:25:00
--
蓝老师，看看如何是好？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：2020/7/18 9:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.zip |
-- 发布时间：2020/7/18 10:43:00
--
Dim s As String = "1=1"
不懂这句的意思
-- 发布时间：2020/7/18 10:46:00
--
只是为了提高拼接查询字符串的效率