用do while…loop循环判断两个字段中的记录是否相同？解决办法

用do while……loop循环判断两个字段中的记录是否相同？？
1、按格式判断两个字段中的记录是否相同。
2、统计有多少个相同记录，结果输出到text1.text中。

数据表：

字段1 字段2
  1 2
  2 3
  3 1
  3 2
  2 3
  1

格式是：
“字段1”的第二条记录 比 “字段2”的第一条记录。循环。

如上“数据表”运行时：

字段1 字段2
  1 （省略）
  2 比 2 （相同）
  3 比 3 （相同）
  3 比 1 （不同）
  2 比 2 （相同）
  1 比 3 （不同）

统计结果：
  （相同）的有“3”个
  text1.text = 3

请高手们写出代码来，谢谢！

 

[解决办法]

VB code

   Dim x1, x2   Dim iCount As Integer      With Adodc1.Recordset        Do While Not .EOF           x2 = .Fields("字段2")           .MoveNext           If .EOF Then GoTo xs           x1 = .Fields("字段1")           If x1 = x2 Then iCount = iCount + 1        Loop   End Withxs: Text1.Text = iCount
[解决办法]
先取字段2的值，再取一的值，不用来回倒指针。
Dim x1, x2，iCount As Integer
 Do While Not .EOF
 x2 = .Fields("字段2")
 .MoveNext
 If .EOF Then exit do
 x1 = .Fields("字段1")
 If x1 = x2 Then iCount = iCount + 1
 Loop
  Text1.Text = iCount