加好友 发短信
等级:小狐
帖子:376
积分:4189
威望:0
精华:0
注册:2008/9/1 14:18:00
|
下面代码问题,是不是有BUG? Post By:2010/3/25 15:42:00 [只看该作者]
For Each dc As DataCol in DataTables("zszy").DataCols For Each dr As DataRow in DataTables("zstb").DataRows Dim drr As DataRow = DataTables("zszy").Find(" " & dc.name & " = '" & dr(dc.name) & "'") If drr IsNot Nothing Then exit for ’drr行不为空就退出不更改内容 Else dr(dc.name) = "志愿错误" ’无drr行在当前行列内标出“志愿错误” End If Next Next 上述代码为什么不能执行,请大家帮我分析一下
|
|