谁能把我的这个VF程序整合一下

注:乡代码 村代码为字符型字段
帮忙把下边的这一堆程序整合成一个程序表达
INDEX ON ss_ tag tag01 FOR 乡代码="1" AND 村代码="1"
SET ORDER TO tag01
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag02 FOR 乡代码="1" AND 村代码="2"
SET ORDER TO tag02
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag03 FOR 乡代码="1" AND 村代码="3"
SET ORDER TO tag03
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag04 FOR 乡代码="1" AND 村代码="4"
SET ORDER TO tag04
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag05 FOR 乡代码="1" AND 村代码="5"
SET ORDER TO tag05
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag06 FOR 乡代码="1" AND 村代码="6"
SET ORDER TO tag06
i=0
scan
i=i+1

INDEX ON ss_ tag tag01 FOR 乡代码="1" AND 村代码="1"
SET ORDER TO tag01
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag02 FOR 乡代码="1" AND 村代码="2"
SET ORDER TO tag02
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag03 FOR 乡代码="1" AND 村代码="3"
SET ORDER TO tag03
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag04 FOR 乡代码="1" AND 村代码="4"
SET ORDER TO tag04
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag05 FOR 乡代码="1" AND 村代码="5"
SET ORDER TO tag05
i=0
scan
i=i+1
replace 小班 with i
endscan
INDEX ON ss_ tag tag06 FOR 乡代码="1" AND 村代码="6"
SET ORDER TO tag06
i=0
scan
i=i+1
replace 小班 with i