以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下面代码问题,是不是有BUG?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6374)

--  作者:lpxjw_zyl
--  发布时间: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


--  作者: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

--  作者:lpxjw_zyl
--  发布时间:2010/3/25 16:02:00
--  

楼主的代码行了,为什么我的代码不行吗?


--  作者:mr725
--  发布时间:2010/3/26 14:56:00
--  
以下是引用lpxjw_zyl在2010-3-25 16:02:00的发言:

楼主的代码行了,为什么我的代码不行吗?

你不就是楼主吗?图片点击可在新窗口打开查看     至于你的代码不行,是被你Exit啦~ 

[此贴子已经被作者于2010-3-26 14:57:54编辑过]