- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 下面代码问题，是不是有BUG？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6374)
-- 发布时间：2010/3/25 15:42:00
-- 下面代码问题，是不是有BUG？
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
上述代码为什么不能执行，请大家帮我分析一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:志愿填报.rar |
-- 发布时间：2010/3/25 15:48: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 Is Nothing Then
dr(dc.name) = "志愿错误" \'无drr行在当前行列内标出"志愿错误"
End If
Next
Next
-- 发布时间：2010/3/25 16:02:00
--
楼主的代码行了，为什么我的代码不行吗？
-- 发布时间：2010/3/26 14:56:00
--
以下是引用lpxjw_zyl在2010-3-25 16:02:00的发言：
楼主的代码行了，为什么我的代码不行吗？
你不就是楼主吗？
至于你的代码不行，是被你Exit啦～
[此贴子已经被作者于2010-3-26 14:57:54编辑过]