Tables("销售定单主表").StopRedraw
Tables("销售定单主表").sort = "销售定单编号"
For i As Integer = Tables("销售定单主表").Rows.Count-1 To 1 Step -1
If Tables("销售定单主表").Rows(i)("销售定单编号") = Tables("销售定单主表").Rows(i-1)("销售定单编号") Then
Tables("销售定单主表").Rows(i).Delete
End If
Next
Tables("销售定单主表").ResumeRedraw
重复行删不完,上述代码只能删除加载出的表,如何在sql后台把重复数值全部删除完毕。