Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6873 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 6585
Line 162... Line 162...
162 
            ' Attempt to speed up access tot he data
 162 
            ' Attempt to speed up access tot he data
163 
            '    Extract all fields for the row
 163 
            '    Extract all fields for the row
164 
            '    Access fields by index
 164 
            '    Access fields by index
165 
            Dim fields
 165 
            Dim fields
166 
            Set fields = rsQry.Fields
 166 
            Set fields = rsQry.Fields
- 
 
 167 
 
167 
            Dim pname    : pname = fields(0)
 168 
            Dim pname    : pname = fields(0)
168 
            Dim rname    : rname = fields(1)
 169 
            Dim rname    : rname = fields(1)
169 
            Dim state    : state = fields(2)
 170 
            Dim state    : state = fields(2)
170 
            Dim reason   : reason = fields(3)
 171 
            Dim reason   : reason = fields(3)
171 
            Dim rc       : rc = CInt(fields(4))
 172 
            Dim rc       : rc = Clng(fields(4))
172 
            Dim tc       : tc = CInt(fields(5))
 173 
            Dim tc       : tc = Clng(fields(5))
173 
            Set fields = nothing
 174 
            Set fields = nothing
174 
 
 175 
 
175 
            ' Create new Items as required
 176 
            ' Create new Items as required
176 
            '
 177 
            '
177 
            If pname <> lastProjectName Then
 178 
            If pname <> lastProjectName Then
Line 198... Line 199...
198 
            Else
 199 
            Else
199 
                dataError(reason)      = dataError(reason) + rc
200 
                dataError(reason)      = dataError(reason) + rc
200 
                dataError("Count")     = dataError("Count") + rc
201 
                dataError("Count")     = dataError("Count") + rc
201 
                dataError("UnitTests") = dataError("UnitTests") + tc
202 
                dataError("UnitTests") = dataError("UnitTests") + tc
202 
            End If
 203 
            End If
203 
 
 - 
 
204 
            rsQry.MoveNext
 204 
            rsQry.MoveNext
205 
        Wend
 205 
        Wend
206 
    End IF
 206 
    End IF
207 
 
 207 
 
208 
    rsQry.Close
 208 
    rsQry.Close