VB 6.0


, ( - 5


If Iz (J, 1) = Sh Then Postavka Izd

For L = 1 To 4

St(L) = St(L) + P(I, L+2) * Iz(J,3) - _

V = V + P(I, L+2) * Iz(J, 4) _

Next L

F=1 : Exit For . .

J

End If

Next J

If F = 0 Then Lbl2.Caption = : Exit Sub

Next I

Lbl2.Caption = = & Str(V)

For L=1 To 4

Lst1.List (L-1) = St(L)

Next L

End Sub

 

Private Sub Form1.Cmd3_Click ( ) (3)

Form1.Hide Form1

Form2.Show

Form2

End Sub

Private Sub Form1.Cmd4_Click ( ) (4),

End

End Sub

 

Private Sub Cmd5_Click

( ) (5), Izd Iz _

Fli

Data2.RecordSet.MoveFirst Izd