主题：关于删除重复行，

Dim tt As Table =  Tables("新订单")
tt.Select(tt.Rowsel,tt.cols("订单id").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = tt.Rows.Count -1 To 0 Step -1
    tt.rows(i).Delete
Next

用上面的代码删除重复行，结果一行都没有了，

就是假如 表中 有 两行   a

我要的功能是点按钮后 删除一个，留下一个

现在的问题是，删除了之后一个都剩不下，麻烦哪位高人帮忙改改！！！万分感谢！！！！！