共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：下面代码问题，是不是有BUG？
1楼
lpxjw_zyl 发表于：2010/3/25 15:42:00For 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
上述代码为什么不能执行，请大家帮我分析一下
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 |
2楼
czy 发表于：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
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
3楼
lpxjw_zyl 发表于：2010/3/25 16:02:00楼主的代码行了，为什么我的代码不行吗？
4楼
mr725 发表于：2010/3/26 14:56:00以下是引用lpxjw_zyl在2010-3-25 16:02:00的发言：
楼主的代码行了，为什么我的代码不行吗？
你不就是楼主吗？
至于你的代码不行，是被你Exit啦～
[此贴子已经被作者于2010-3-26 14:57:54编辑过]
共4 条记录, 每页显示 10 条, 页签:
[1]