看看:http://www.foxtable.com/webhelp/topics/2225.htm
或者
Tables("清点明细").StopRedraw
Tables("清点明细").filter = "清点日期 = '" & rq & "'"
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