删除记录计数不准确~~~

[lousn]

listview记录如下数据:
1 19.37 -0.63
2 22.89 Up-Err
3 21.68 1.68
4 20.37 0.37
5 18.38 -1.62
6 15.96 Down-Err
7 1.64 Down-Err
8 1.64 Down-Err
9 13.86 Down-Err
10 12.65 Down-Err
11 17.03 Down-Err
12 18.73 -1.27
13 23.75 Up-Err
14 23.75 Up-Err
15 25.50 Up-Err
16 24.19 Up-Err
当我选择删除含有"Up-Err"记录的记录的时候,text1计数减一
含有"Down-Err"记录的记录的时候,text2数减一
最初记录有"Up-Err"的text1=5 当我选择记录2删除的时候不是text1=4有时候正确,当我选择删除记录13的时候又不正确了
含有"Down-Err"记录的也是一样,有时候删除含"Up-Err"居然是text2减少~~~
大家帮看看我的代码:
Dim n As Integer
n = ListView1.SelectedItem.Index
ListView1.ListItems.Remove n
If ListView1.SelectedItem.SubItems(2) = "Up-Err" Then
Text1.Text = Text1.Text - 1
ElseIf ListView1.SelectedItem.SubItems(2) = "Down-Err" Then
Text2.Text = Text2.text - 1

[Tiger_Zhao]

先判断、减计数，最后调用 Remove。
否则项目删除后当前选中项就已经不是原先的项目了，判断的依据不对了。

[king06]

ListView1.ListItems.Remove n
放到if……else if ……end if 的后面

[lousn]

哦,原来是这样,顺序错了,怪不得计数不对~~谢谢了!!