以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  循环错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117766)
--  作者：ryubo888
--  发布时间：2018/4/18 21:33:00
--  循环错误
Dim fls As String = CurrentTable.Current("电子档案")
Dim kss As Integer = 326
For Each dr As Row In CurrentTable.rows()
    If dr("编码") >"" Then
        If dr("电子档案") = "" Then
            For i As Integer = 1 To 7
                Dim fl As String = "D_0" & kss & ".jpg"
                If fls >"" Then
                    fls = fls & vbcrlf
                End If
                fls = fls & fl
                kss = kss + 1
            Next
            CurrentTable.Current("电子档案") = fls & vbcrlf
        End If
    End If
Next

都在第一条符合条件的记录了，下一条就不循环了
我看不出我错在哪了
--  作者：有点甜
--  发布时间：2018/4/18 21:39:00
--  

CurrentTable.Current("电子档案") = fls & vbcrlf

 

改成

 

dr("电子档案") = fls & vbcrlf
--  作者：ryubo888
--  发布时间：2018/4/18 21:51:00
--  
谢谢