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

End With

End If

Next u

If k = 1 Then MsgBox "Модель не найдена"

Else

MsgBox "Введитемодель"

End If

Case 7

If Val(Combo2.Text) < Val(Combo3.Text) Then

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

Dim j As Integer

k = 1

For j = 1 To zpust

If Val(Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(j, 6)) >= Val(Combo2.Text) And Val(Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(j, 6)) <= Val(Combo3.Text) Then

With Form1.excelist.ActiveWorkbook.ActiveSheet

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

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

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

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

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

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