ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Многомерный массив
19 сообщений из 19, страница 1 из 1
Многомерный массив
    #37192409
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Что-то я запутался, подскажите плиз.
Есть многомерные массив их одной строки и двух столбцов.
Если мы этот массив переопределяем
Код: plaintext
ReDim myArray( 1 ,  1 )
, то есть делаем две строки и два столбца, то значения которые были в первой строке так и остаются в первой строке, или переносятся во вторую строку?
...
Рейтинг: 0 / 0
31.03.2011, 14:11
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192414
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
redim без preserve просто очистит массив
...
Рейтинг: 0 / 0
31.03.2011, 14:12
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192444
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Konst_Oneredim без preserve просто очистит массив
АААА голова дырявая, совсем забыл, спасибо. :)
...
Рейтинг: 0 / 0
31.03.2011, 14:19
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192589
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Блин, либо голова уже не работает, либо не знаю что тут не так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
        g =  0 
        Dim myArray( 0 ,  2 )
        For i =  4  To .Cells(Rows.Count, intTempStartCol).End(xlUp).Row
            f =  0 
            If Not .Cells(i, intTempStartCol +  9 ).Value = "" And .Cells(i, intTempStartCol +  19 ).Value = "" Then
                For j =  0  To g
                    If myArray(j,  0 ) = .Cells(i, intTempStartCol +  9 ).Value And myArray(j,  1 ) = Format(CDate(.Cells(i, intTempStartCol +  10 ).Value)) Then
                        myArray(j,  2 ) = Format(CCur(CCur(myArray(j,  2 )) + CCur(.Cells(i, intTempStartCol +  8 ).Value)), "#,##0.00")
                        f =  1 
                    End If
                Next
                If Not f =  1  Then
                    If myArray( 0 ,  0 ) =  0  Then
                        myArray( 0 ,  0 ) = .Cells(i, intTempStartCol +  9 ).Value
                        myArray( 0 ,  1 ) = Format(CDate(.Cells(i, intTempStartCol +  10 ).Value))
                        myArray( 0 ,  2 ) = Format(CCur(.Cells(i, intTempStartCol +  8 ).Value), "#,##0.00")
                    Else
                        g = g +  1 
                        ReDim Preserve myArray(g,  2 )
                        myArray(g,  0 ) = .Cells(i, intTempStartCol +  9 ).Value
                        myArray(g,  1 ) = Format(CDate(.Cells(i, intTempStartCol +  10 ).Value))
                        myArray(g,  2 ) = Format(CCur(.Cells(i, intTempStartCol +  8 ).Value), "#,##0.00")
                    End If
                End If
            End If
        Next
        If Not myArray( 0 ,  0 ) =  0  Then
            For j =  0  To g
                Me.ComboBox1.AddItem myArray(j,  0 )
            Next
        Else
            MsgBox "Íåîïëà÷åííûõ ñ÷åòîâ íåò.", vbOKOnly
            Call Unload(Me)
        End If
так эта сволочь ругается на
Код: plaintext
ReDim Preserve myArray(g,  2 )
...
Рейтинг: 0 / 0
31.03.2011, 15:21
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192626
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
dd44,

Определить массив надо вне процедуры изначально не указывая размер
...
Рейтинг: 0 / 0
31.03.2011, 15:39
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192661
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Shocker.Prodd44,

Определить массив надо вне процедуры изначально не указывая размер
Приношу извинения, что забыл это указать, он у меня определен
Код: plaintext
Dim myArray() As Variant
...
Рейтинг: 0 / 0
31.03.2011, 15:50
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192680
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
тогда выбросить строку
Код: plaintext
Dim myArray( 0 ,  2 )
...
Рейтинг: 0 / 0
31.03.2011, 15:58
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192683
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proтогда выбросить строку
Код: plaintext
Dim myArray( 0 ,  2 )

если в процедуре определена переменная, то она перекрывает переменную, определенную на более высоком уровне
...
Рейтинг: 0 / 0
31.03.2011, 15:59
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192793
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Shocker.ProShocker.Proтогда выбросить строку
Код: plaintext
Dim myArray( 0 ,  2 )

если в процедуре определена переменная, то она перекрывает переменную, определенную на более высоком уровне
Изменил
Код: plaintext
Dim myArray( 0 ,  2 )
на
Код: plaintext
ReDim myArray( 0 ,  2 )
, все равно ругается на
Код: plaintext
ReDim Preserve myArray(g,  2 )
пишет: Subscript out of range.
...
Рейтинг: 0 / 0
31.03.2011, 16:40
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192843
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
dd44,

Странная ошибка
Уверены, что ругается именно на эту строку?

попробуйте локализовать или выкладывайте рабочий фрагмент для анализа.
...
Рейтинг: 0 / 0
31.03.2011, 16:59
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192867
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
потому что нельзя
читайте классику
...
Рейтинг: 0 / 0
31.03.2011, 17:06
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192911
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Konst_Oneпотому что нельзя
читайте классику Все равно туплю. Изменил строку в соответствии с примером на
Код: plaintext
ReDim Preserve myArray(UBound(myArray) +  1 )
опять та же ошибка: Subscript out of range.
...
Рейтинг: 0 / 0
31.03.2011, 17:20
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192914
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Плохо читаете классику:
Коррекция длины массива с использование Preserve возможна и для многомерных массивов, но при этом допускается изменение только последнего индекса

Спасибо, Костя, за подсказкку, сам я об этом позабыл
...
Рейтинг: 0 / 0
31.03.2011, 17:23
| Ответить | Цитировать | Написать  
Многомерный массив
    #37192916
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim myArray() as String

Redim myArray( 2 )
myArray( 0 )="раз"
myArray( 1 )="два"
myArray( 2 )="три"

ReDim Preserve myArray(UBound(myArray) +  1 )
myArray( 3 )="четыре"

теперь надеюсь, что сами разберётесь
...
Рейтинг: 0 / 0
31.03.2011, 17:24
| Ответить | Цитировать | Написать  
Многомерный массив
    #37193257
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Так что, я могу добавить только столбец?
...
Рейтинг: 0 / 0
31.03.2011, 20:53
| Ответить | Цитировать | Написать  
Многомерный массив
    #37193300
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
dd44,
Что мешает тебе выдумать порох непромокаемый?(с) Козьма Прутков

Поменяйте "ряды" и "столбцы" местами
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim myArray()
'...
ReDim myArray( 2 ,  0 )
'...
    g = g +  1 
    ReDim Preserve myArray( 2 , g)
    myArray( 0 , g) = .Cells(i, intTempStartCol +  9 ).Value
    myArray( 1 , g) = Format(CDate(.Cells(i, intTempStartCol +  10 ).Value))
    myArray( 2 , g) = Format(CCur(.Cells(i, intTempStartCol +  8 ).Value), "#,##0.00")
'...
...
Рейтинг: 0 / 0
31.03.2011, 21:38
| Ответить | Цитировать | Написать  
Многомерный массив
    #37193698
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
пробуй камнемdd44,
Что мешает тебе выдумать порох непромокаемый?(с) Козьма Прутков

Поменяйте "ряды" и "столбцы" местами
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim myArray()
'...
ReDim myArray( 2 ,  0 )
'...
    g = g +  1 
    ReDim Preserve myArray( 2 , g)
    myArray( 0 , g) = .Cells(i, intTempStartCol +  9 ).Value
    myArray( 1 , g) = Format(CDate(.Cells(i, intTempStartCol +  10 ).Value))
    myArray( 2 , g) = Format(CCur(.Cells(i, intTempStartCol +  8 ).Value), "#,##0.00")
'...

Спасибо всем огромное. Это понятно что можно транспонировать массив, понятно, что его можно сделать одномерным и добавлять по три значения, можно также сделать два массива и предварительно изменив один передавать в него значения из другого, но это все как-то неправильно что ли, не красиво и губит в душе тягу к прекрасному.
...
Рейтинг: 0 / 0
01.04.2011, 10:05
| Ответить | Цитировать | Написать  
Многомерный массив
    #37193788
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
dd44Спасибо всем огромное. Это понятно что можно транспонировать массив, понятно, что его можно сделать одномерным и добавлять по три значения, можно также сделать два массива и предварительно изменив один передавать в него значения из другого, но это все как-то неправильно что ли, не красиво и губит в душе тягу к прекрасному.

Когда возникает подобный душевный диссонанс, ты берешь в руки мышь и парой кликов создаешь класс. Затем заполняешь класс всем, что тебя так сильно расстраивает, и реализуешь свою тягу к прекрасному путем создания прекрасных методов и свойств этого класса. Таким образом создав "черный ящик", ты навсегда забываешь о плохом настроении из-за массивов, после создания не менее двух десятков подобных классов, можешь достичь просветления, а после пятого десятка - нирваны.
...
Рейтинг: 0 / 0
01.04.2011, 10:45
| Ответить | Цитировать | Написать  
Многомерный массив
    #37197368
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Shocker.Prodd44Спасибо всем огромное. Это понятно что можно транспонировать массив, понятно, что его можно сделать одномерным и добавлять по три значения, можно также сделать два массива и предварительно изменив один передавать в него значения из другого, но это все как-то неправильно что ли, не красиво и губит в душе тягу к прекрасному.

Когда возникает подобный душевный диссонанс, ты берешь в руки мышь и парой кликов создаешь класс. Затем заполняешь класс всем, что тебя так сильно расстраивает, и реализуешь свою тягу к прекрасному путем создания прекрасных методов и свойств этого класса. Таким образом создав "черный ящик", ты навсегда забываешь о плохом настроении из-за массивов, после создания не менее двух десятков подобных классов, можешь достичь просветления, а после пятого десятка - нирваны.Улыбнуло, с классами я еще не знаком, будем изучать матчасть.
...
Рейтинг: 0 / 0
04.04.2011, 10:30
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Многомерный массив
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=104&tid=2158832]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 73ms
get tp. blocked users:
 2ms
others: 14ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


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