- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 删除重复项 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105705)
-- 发布时间：2017/8/24 15:50:00
-- 删除重复项
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列"
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
idx_temp &= dr("_Identify") & ","
End If
Else
count += 1
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")
此主题相关图片如下：qq截图20170824154703.png
现在想通过删除重复项把第一列第二列的数据处理成第五列第六列的效果。
就是第一列相同的数据，第二列不能有重复的。
-- 发布时间：2017/8/24 16:39:00
--
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列"
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
idx_temp &= dr("_Identify") & ","
End If
Else
count += 1
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")
-- 发布时间：2017/8/25 9:59:00
--
我想在删除重复项内加一个消息提示框，比如提示此次共删除多少重复项这样的语句信息。代码要怎么去处理呀？
-- 发布时间：2017/8/25 10:08:00
--
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列"
dim sum as integer = 0
For Each dr As DataRow In DataTables("表A").Select("第一列 is not null", cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
idx_temp &= dr("_Identify") & ","
sum += 1
End If
Else
count += 1
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
DataTables("表A").DeleteFor("_Identify In (" & idx.trim(",") & ")")
msgbox("删除" & sum & "条")
-- 发布时间：2017/8/25 11:10:00
--
消息提示框出来了，但是删除动作却没有实现，是因为什么？
-- 发布时间：2017/8/25 11:20:00
--
消息提示框出来了，但是删除动作却没有实现，是因为什么？
数据发上来测试。
-- 发布时间：2017/8/25 14:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试1.zip |
生产工艺1表
-- 发布时间：2017/8/25 14:58:00
--
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "工单单号,工序"
Dim sum As Integer = 0
For Each dr As DataRow In DataTables("生产工艺1").Select("工单单号 is not null", cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
idx_temp &= dr("_Identify") & ","
sum += 1
End If
Else
count += 1
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
DataTables("生产工艺1").DeleteFor("_Identify In (" & idx.trim(",") & ")")
msgbox("删除" & sum & "条")
-- 发布时间：2017/8/31 10:36:00
--
此主题相关图片如下：qq截图20170831103131.png
此主题相关图片如下：qq截图20170831103230.png
代码发不出来，报这样的错误，是什么原因？
-- 发布时间：2017/8/31 10:38:00
--
1、http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632
2、你要做什么功能？