Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / массив - параметр функции / 5 сообщений из 5, страница 1 из 1
08.06.2010, 15:15
    #36675704
macros
macros
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массив - параметр функции
Всем привет!

проблема : Есть массив:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
  'массив содержащий детали которые с ПМ 52,61,62
  Dim detNote( 0  To  500 ,  0  To  2 ) As String
  
  'инициализация гребанного массива  ]:->
  For i =  0  To  500 
    detNote(i,  0 ) = ""
    detNote(i,  1 ) = ""
  Next i

потом пытаюсь передать его в функцию:
Код: plaintext
Call FillBody(n_ordspec_id, rowNumber, rowNumber_inList, listNumber, List_Row_1, detNote)

объявление функции:

Код: plaintext
1.
Private Sub FillBody(ByVal n_ordspec_id As Integer, ByRef rowNumber As Integer, ByRef rowNumber_inList As Integer, _
  ByRef listNumber As Integer, ByRef List_Row_1 As Integer, ByRef detNote() As Object)

думал неправильно оъявляю параметр в функции. поэтоум пробовал и так:
Код: plaintext
1.
ByRef detNote As String

все равно не получаеться - ругаеться:
Type mismatch: array or user-defined type expected

что не правильно делаю?

Незнание - порождает стремление...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2010, 15:36
    #36675768
_Boroda_
_Boroda_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массив - параметр функции
macros,

А так и должно быть, что
detNote(i, 0) = ""
detNote(i, 1) = ""

есть, а

detNote(i, 2 ) = "" - нету?

Вроде Dim detNote(0 To 500, 0 To 2 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2010, 15:39
    #36675782
гребанный массив
гребанный массив
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массив - параметр функции
detNote() As String
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 06:11
    #36676888
macros
macros
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массив - параметр функции
гребанный массив,

да да, спасибо, я уже сам разобрался))
именно так надо:

detNote() As String - объявлять параметр в процедуре :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 06:13
    #36676889
macros
macros
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
массив - параметр функции
_Boroda_macros,

А так и должно быть, что
detNote(i, 0) = ""
detNote(i, 1) = ""

есть, а

detNote(i, 2 ) = "" - нету?

Вроде Dim detNote(0 To 500, 0 To 2 )

это опечатка))
НО даже так (я попробовал ради интереса) - тоже работает :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / массив - параметр функции / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 515ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178016]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 196ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 226ms
total:  515ms
x
x
Закрыть


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