用for…next判断两个字段中的记录是否相同？解决办法

用for……next判断两个字段中的记录是否相同？？
用for……next判断两个字段中有多少个相同记录？？

格式：
字段1第五条记录to第十五条记录
比
字段2第三条记录to第十三条记录

统计有多少个相同记录，结果输出到text1.text.

请写出代码来，谢谢！


[解决办法]

VB code

'1、一对一（5-3,6-4,...,15-13）固定比较寻找 For i = 1 To 10     .Move 3 + i, 1     If .EOF Then Exit For     X1 = .Fields("字段1")     .Move 1 + i, 1     X2 = .Fields("字段2")     If X1 = X2 Then iCount = iCount + 1NextText1.Text = iCount  '2、一对多（5-3,4,5,...,13；6-3,4,5,...,13；...)逐个比较寻找  For i = 1 To 10     .Move 3 + i, 1      If .EOF Then Exit For      X1 = .Fields("字段1")      For j = 1 To 10         .Move 1 + j, 1          X2 = .Fields("字段2")          If X1 = X2 Then             iCount = iCount + 1             Exit For          End If      Next   Next   Text1.Text = iCount