不知道这段代码能否完整显示被删除的行(只要不删除_identify的最后一行就可以,否则要把这个曾经最大的行号保存这一个变量中,再判断):
Dim n,s,s1 as integer
Tables("表A").Sort = "_Identify"
For i as integer = 0 To Tables("表A").Count -1
Dim m as integer = Tables("表A").rows(i)("_Identify")
n = m - i+s
If n-s - s1 > 0 Then
s = n
output.show("删除的行是:" & " " & i+s1 & " 到 " & m-1) '****显示被删除的行::::::::
s1 = m - i
End If
Next
[此贴子已经被作者于2009-10-16 22:32:29编辑过]