主题：[求助]需要救命

我有一个数据表，其中有3000只股piao，每只股piao每天都有数据，现在我需要删除有可能的某piao某天重复数据，现在已经有2年的数据了，

Dim bTbl As New GroupTableBuilder( "特定股piao加仓股",DataTables("特大单加仓股"))
Dim outTbl As Table
bTbl.Groups.AddDef("股piao代码")
bTbl.Groups.AddDef("交易日期",DateGroupEnum.None,"交易日期")
' bTbl.Filter="[股piao代码] = " & tcode(i)'  ORDER BY 交易日期 Desc"
bTbl.Build
outTbl =Tables("特定股piao加仓股") 'bTbl.Build(True) '生成一个DataTable
If outTbl.Rows.Count>0 Then
    For Each dr As Row In outTbl.Rows
        Output.Show("正在清理【特大单加仓股】 代码【" & dr("股piao代码") & "】 日期【" & dr("交易日期") & "】")
        DataTables("特大单加仓股").DeleteFor("[股piao代码]=" & dr("股piao代码") & " And [交易日期]= #" & dr("交易日期") & "#" )
    Next
End If

Return 1

问题是1分多钟才能处理1只股piao，这样我要2天，才能完成，请问各位大侠，还有快一点的方法吗

哎，看来是没得救了，foxtable处理速度貌似太慢，我还有一个表与上面讲的差不多，要按时间统计连续，最近20个数据统计，最近10个数据统计，最近半年数据统计，最近一年半数据统计并保存，结果3分多种搞一只股piao，3000只要6天，妈噎，我晕死了。没办法，现在急着用，先将就ACCESS与foxtable。其它数据库还不会

Dim bTbl As New GroupTableBuilder( "特定股piao加仓股",DataTables("特大单加仓股"))
Dim outTbl As Table
bTbl.Groups.AddDef("股piao代码")
bTbl.Groups.AddDef("交易日期",DateGroupEnum.None,"交易日期")
b.Totals.AddDef("股piao代码",AggregateEnum.Count,"出现次数")
' bTbl.Filter="[股piao代码] = " & tcode(i)'  ORDER BY 交易日期 Desc"
bTbl.Build
outTbl =Tables("特定股piao加仓股") 'bTbl.Build(True) '生成一个DataTable
If outTbl.Rows.Count>0 Then
    outTbl.Filter="[出现次数] > 1"
    For Each dr As Row In outTbl.Rows
        Output.Show("正在清理【特大单加仓股】 代码【" & dr("股piao代码") & "】 日期【" & dr("交易日期") & "】总共【" & outTbl.Rows.Count)
        ' If dr("出现次数")>1 Then
        Dim drs As List(Of DataRow) = DataTables("特大单加仓股").Select( "[股piao代码] = '" & dr("股piao代码") & "' And [交易日期] = #" & dr("交易日期") & "#","ID")
        If DRS.Count>1 Then
            For i As Integer=1 To DRS.Count-1
                DataTables("特大单加仓股").DeleteFor("[ID] =" & DRS(I)("ID"))
            Next
            Output.Show("已经清理【特大单加仓股】 代码【" & dr("股piao代码") & "】 日期【" & dr("交易日期") & "】")
        End If
        ' End If
        ' DataTables("特大单加仓股").DeleteFor("[股piao代码]=" & dr("股piao代码") & " And [交易日期]= #" & dr("交易日期") & "#" )
    Next
End If
Output.Show("清理完成")

Return 1

用此法快速解决