用for…next判断两个字段中的记录是否相同？解决办法
用for……next判断两个字段中的记录是否相同？？
用for……next判断两个字段中有多少个相同记录？？
格式：
字段1第五条记录to第十五条记录
比
字段2第三条记录to第十三条记录
统计有多少个相同记录，结果输出到text1.text.
请写出代码来，谢谢！
------解决方案--------------------
用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 + 1
Next
Text1.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