VB 6.0


( )


 

2 Data,

.

:

1.      2,3,4,5 1.

Form1 (. 6.2) Cmd1 .

2.      Form1:

Private Sub Cmd1_Click ( )

Postavka Flp

Dim I%, J%, K%

Data1.RecordSet.MoveFirst Postavka

K= Data1.RecordSet.RecordCount Postavka

L = Data1.RecordSet.Fields.Count

Flp.Rows = K+1: Flp.Cols = 6 Flp

For I = 1 To K Postavka

For J = 1 To L

If I = 1 Then

Flp. Flp.TextMatrix (I-1, J-1)=Data1.RecordSet.Fields(J-1). _

Name

Flp.TextMatrix (I, J-1) = Text1(J-1) = Data1.RecordSet.Fields(J-1).Value

Next J

Data1.RecordSet.MoveNext

Next I

End Sub

 

Private Sub Cmd2_Click ( ) , _

򠠠

Dim I%, J%, F%, P%

Data1.RecordSet.MoveFirst

: P = -1

For I = 1 To

Data1RecordSet.RecordCount

F = 0

For J = 2 To 4

If Data1.RecordSet.Fields(J).Value <= Data1.RecordSet.Fields(J+1).Value

_

Then

F=1

Next J

If F = 0 Then P = P+1 : Lst1.List(P) = Data1.RecordSet.Fields(1).Value

Data1.RecordSet.MoveNext

Next I

If P = -1 Then

Lbl1.Caption = Else _

Lbl1.Caption=.

End Sub

Private Sub Cmd3_Click ( )

End

End Sub