[Surok]

Вот начало программы на VB 6.0

Код

Private Sub Cmd1_Click()
Dim I As Integer                              
Dim J As Integer                                    
Dim L As Integer                                  
Dim KolF As Integer
Dim Sum() As Integer
Dim KolSt() As Integer
Dim FakMas() As String
A = ""
KolF = 0
Fl.Rows = 1: Fl.Cols = 3                      
For I = 2 To 3        
  Fl.TextMatrix(0, I - 2) = Data1.Recordset.Fields(I).Name
Next I
Fl.TextMatrix(0, 2) = "SrBall"
Data1.Recordset.MoveFirst

For I = 1 To Data1.Recordset.RecordCount
    If InStr(A, Data1.Recordset.Fields(2).Value) = 0 Then
        KolF = KolF + 1
        FakMas(KolF - 1) = Data1.Recordset.Fields(2).Value
        A = A + Data1.Recordset.Fields(2).Value
    End If
    Data1.Recordset.MoveNext
Next I

Почему в строке FakMas(KolF - 1) = Data1.Recordset.Fields(2).Value появляется ошибка "нижний индекс вне диапазона"?
Уже день сижу не могу сделать(((

Сообщение отредактировал Surok: 22 Май 2007 - 11:20

[ABPOPA]

Могу конечно ошибатся(не сильно в VB работал)

а там так же как в "С++" от 0 до N?, а не от 1 до N берется.

[Surok]

Могу конечно ошибатся(не сильно в VB работал)

а там так же как в "С++" от 0 до N?, а не от 1 до N берется.

Да, от нуля. Там просто какие-то глюки) если при объявлении массива прописать

Код

Dim FakMas(1024) As String

то всё работает

[ABPOPA]

честно тоды не в курсях.в СЯ динам масив по другому задается.

а если тебе посчитать количество строчек которые будеш записывать в масив и определить масив уже с полученым значением.
(если я конечно правельно понял что ты хочеш)

просто в паскале так и писалось arr[number](правдо это полу динам был), а в СЯ через указатели и НЬЮ делается.

[Steam]

дай ка угадаю, курсач по КП?
а мне вот тоже помощь нужна маленькая
[attachment=3303:attachment]
[attachment=3306:attachment]
это проект!
сказали что надо указать путь к файлу, т.к. проект и его состовляющие были скачены с другого компа и путь к формам соответственно остался старый
а где указывать - незнаю..
может кто поможет?

и вот ещё какая херь:
[attachment=3304:attachment]
ссылается на
[attachment=3305:attachment]
может кто заметит в чём дело

Сообщение отредактировал Steam: 23 Май 2007 - 17:41

[Steam]

и вот ещё что:
как из 6 форм сделать 1 проект??
и скажите где размер шрифта менять ))))

Сообщение отредактировал Steam: 23 Май 2007 - 18:26

[Surok]

и вот ещё что:
как из 6 форм сделать 1 проект??
и скажите где размер шрифта менять ))))

В главном меню Проект - добавить форму - Существующий
А шрифт - свойство Font

Я кстати курсач доделал и сегодня сдал)))

[Steam]

В главном меню Проект - добавить форму - Существующий
А шрифт - свойство Font

Я кстати курсач доделал и сегодня сдал)))

везёт те, а я не тот вариант делал
кстати на какую тему у тя курсач??
случаем не про перевозки грузов автотранспортом?

[Steam]

это конечно не ВБ, но всё равно, может кто знает
[attachment=3318:attachment]
как можно с помощью Excel(а может и в Access) заполнить данные не вручную, а скопировав определённые данные в оставшиеся ячейки ?

[Surok]

нет у меня про студентов.
а вопроса про эксель я не понял) Просто копировать-вставить не подходит что ли?)

[Steam]

нет у меня про студентов.
а вопроса про эксель я не понял) Просто копировать-вставить не подходит что ли?)

можешь сказать что я идиот, я не обижусь )))
походу вы попали
вот ещё вопросы :
при переходе к форме выдаёт ошибку =\
[attachment=3319:attachment]
и при считывании из экселя тоже ошибка...а в чём дело я так и не догнал =\
[attachment=3320:attachment]
[attachment=3321:attachment]
мб знаете в чём проблема
прост непервариваю этой бэйсик, а курсач сдать надо ко вторнику =\