Dim tb1 As Table = Tables("学生信息A_table1")
tb1.Position=0
For Each r As Row In tb1.Rows
Dim dr As DataRow = DataTables("学生信息").sqlfind("身份证件号='" & r("身份证件号") & "' and [_identify]<>'" & r("_identify") & "'")
Dim str As String=""
If dr IsNot Nothing
str= str & "身份证号与" & dr("学校名称") & dr("班级") & dr("学生姓名") & "重复;"
End If
If r("学籍号").length<>19
str= str & vbcrlf & "学籍号不规范;"
End If
If r("户籍地址").length<=5
str= str & vbcrlf & "户籍地址不规范;"
End If
r("重复情况")= str
With tb1
.Position = .Position + 1
End With
Next
老师在这个循环中我想做个按esc停止循环并退出怎么设计
加好友 
发短信
Post By：2020/5/13 19:09:00 [显示全部帖子]
