Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по списку?? / 2 сообщений из 2, страница 1 из 1
24.10.2007, 21:34
    #34892857
Gul`ka
Gul`ka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по списку??
Sub Enter(a() As stud, n As Integer)
n = 1
While Cells(n, 1) <> ""
a(i).author = Cells(n, 1)
a(i).book = Cells(n, 2)
a(i).cost = Cells(n, 3)
n = n + 1
Wend
n = n - 1
................

Почему не работает первая строчка я не понимаю...
он пишет что-то о том, что некоторые функции не сочетаются с некоторыми значениями, но нам давали именно такое описание списка... что тут не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2007, 10:05
    #34896433
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по списку??
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Type stud
    Author As String
    book As String
    cost As Variant
End Type

Sub Enter(a() As stud, n As Integer)
    While Cells(n,  1 ) <> ""
        a(n).Author = Cells(n,  1 )
        a(n).book = Cells(n,  2 )
        a(n).cost = Cells(n,  3 )
        n = n +  1 
    Wend
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по списку?? / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 393ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163189]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 71ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 221ms
total:  393ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]