VB 6.0


, ( - 6


KztI = Data2.RecordSet.RecordCount Izd

KptI = Data.RecordSet.Fields.Count Izd

ReDim Iz(1 To KztI, 1 To KptI)

Fli.Rows = KztI +1 : Fli.Cols = KptI Fli

For I = 1 To KztI Izd

For J = 1 To KptI

If I = 1 Then Fli.TextMatrix (I-1, J-1) = Data2.RecordSet.Fields(J-1).Name

Iz(I, J) = Text2(J-1) : Fli.TextMatrix(I, J-1) = Iz(I, J) = Text2(J-1), _

Data2.RecordSet.Fields(J-1).Value

Next J

Data2.RecordSet.MoveNext

Next I

End Sub

 

Private Sub Cmd6_Click ( )

Form2.Hide Form2

Form1.Show

Form1

End Sub

 

:

- ;

- Form1 Cmd1 ( Postavka

P

Flp), Cmd3 ( Form2);

- Form2 Cmd5 ( Izd Iz Fli), Cmd6 ( Form1);

- Form1 Cmd2 ( );

-          Form1 Cmd4 ( ).

-