Dim Int_RiID( 20 ,  2 ) As String
rs.Open Ricki_ID, ResSQLsp
'создание массива и внесение в него DI риска и его имени
iri =  1 
While (Not rs.EOF)
For jri =  0  To  1 
        Int_RiID(iri, jri) = rs(jri)
    Next jri
rs.MoveNext
iri = iri +  1 
Wend
rs.Close
                   
Dim RisPlan( 50 ,  11 ) As String 'создание массива для заполнения таблицы Состояния работ планов..
rs.Open RisTask, ResSQL
ir =  1 
While (Not rs.EOF)
For jrw =  0  To  6 
    
If rs( 1 ) =  6  And jrw <>  1  Then If jrw =  4  Or jrw =  5  Then RisPlan(ir, jrw) = Format(rs(jrw), "#0.00") Else RisPlan(ir, jrw) = rs(jrw)
    
    If jrw =  1  Then 'название риска
For i_i =  1  To iri -  1 
If rs( 0 ) = Int_RiID(i_i,  0 ) Then RisPlan(ir, jrw) = Int_RiID(i_i,  1 )
Next i_i
    End If
    
    If rs( 1 ) =  7  And jrw <>  1  Then
        For ij =  1  To ir
        If RisPlan(ij,  0 ) = rs( 0 ) And RisPlan(ij,  7 ) = "" Then
        RisPlan(ij,  7 ) = rs( 2 )
        RisPlan(ij,  8 ) = rs( 3 )
        RisPlan(ij,  9 ) = Format(rs( 4 ), "#0.00")
        RisPlan(ij,  10 ) = Format(rs( 5 ), "#0.00")
        RisPlan(ij,  11 ) = rs( 6 )
        ir = ir -  1 
        GoTo  999 
        End If
        Next ij
    RisPlan(ir,  0 ) = rs( 0 )
For i_i =  1  To iri -  1 
If rs( 0 ) = Int_RiID(i_i,  0 ) Then RisPlan(ir,  1 ) = Int_RiID(i_i,  1 )
Next i_i
    RisPlan(ir,  7 ) = rs( 2 )
    RisPlan(ir,  8 ) = rs( 3 )
    RisPlan(ir,  9 ) = Format(rs( 4 ), "#0.00")
    RisPlan(ir,  10 ) = Format(rs( 5 ), "#0.00")
    RisPlan(ir,  11 ) = rs( 6 )
    GoTo  999 
    End If
Next jrw
 999 :
rs.MoveNext
ir = ir +  1 
Wend
rs.Close
'контромь перед заполнением таблицы
'For i = 1 To ir - 1
'    For jrw = 0 To 11
'za = za & RisPlan(i, jrw) & ","
'    Next jrw
'za = za & Chr(13)
'Next i
'MsgBox za