用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
请高手们写出代码来，谢谢！
------解决方案--------------------
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 With
xs: 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