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