Реферат: База данных видеокарт

Rows = zpust + 1

Col = r

Sort = 1

Rows = 70

End With

Case 6

If Combo1.Text <> Empty Then

Dim u As Byte

zpust = Form1.zerocell

k = 1

MSFlexGrid1.Clear

With MSFlexGrid1

TextMatrix(0, 0) = "Модель"

TextMatrix(0, 1) = "Шина AGP"

TextMatrix(0, 2) = "Частотаядра/памяти"

TextMatrix(0, 3) = "Об'ёмпамяти"

TextMatrix(0, 4) = "Типпамяти"

TextMatrix(0, 5) = "Цена"

End With

For u = 1 To zpust

If Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(u, 1) = Combo1.Text Then

With Form1.excelist.ActiveWorkbook.ActiveSheet

MSFlexGrid1.TextMatrix(k, 0) = .Cells(u, 1)

MSFlexGrid1.TextMatrix(k, 1) = .Cells(u, 2)

MSFlexGrid1.TextMatrix(k, 2) = .Cells(u, 3)

MSFlexGrid1.TextMatrix(k, 3) = .Cells(u, 4)

MSFlexGrid1.TextMatrix(k, 4) = .Cells(u, 5)

MSFlexGrid1.TextMatrix(k, 5) = .Cells(u, 6)

k = k + 1