VBNet - Форум - Срочно! В течении 3-ёх дней! Кто подскажет есть...

Вопрос: Срочно! В течении 3-ёх дней! Кто подскажет есть... Добавлено: 21.03.03 04:10

Автор вопроса: otv | ICQ: 140550240

Мне нужен обычный тип данных "записи", как например в Delphi. Нужно организовать одномерный массив с полями данных. Весь хелп и инет перерыл - ну ни слова даже о существовании такого простого типа данных.

Я в VBA новичек. Редко когда с ним сталкиваюсь. Но вот судьба вынуждает воспользоваться VBA. На работе приходится вот так извращаться. На VB и VBNet вообще не пробывал программировать.

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

otv

ICQ: 140550240

Вопросов: 2
Ответов: 6

Профиль | | #1

Добавлено: 21.03.03 04:12

мля... мой вопрос в заголовке не поместился. Кто подскажет есть ли в VBA тип данных "записи"? И как его организовать?

Ответить

Номер ответа: 2
Автор ответа:

vitus

Вопросов: 9
Ответов: 43

Web-сайт: www.jgukz.narod.ru
Профиль | | #2

Добавлено: 21.03.03 08:09

Попробуй объявить свой тип данных

типа:

Type TypeStud
    kodStud As Long
    familyAbitur As String
    nameAbitur As String
    otchAbitur As String
    kodFac() As Integer
    kodSpec() As Integer
    kodDKurs As Long
    kodOtdel As Integer
    kodPlata As Long
    curOplata As Single
    curDolgOld As Single
    dtDateA As Date
End Type

Ответить

Номер ответа: 3
Автор ответа:

otv

ICQ: 140550240

Вопросов: 2
Ответов: 6

Профиль | | #3

Добавлено: 22.03.03 00:11

В VBA нельзя так сделать. Толи назначение "Type" там другое, толи...Короче он пишет что "вложенная функция имеет неправильный формат" и выделяет слово "Type". Как я понял структура модулей в VBA имеет жесткий формат, который заключается в том, что все подпрограммы(функции) записываются отдельно друг от друга на одном уровне в следующем виде:

Private Sub [sensored]()

End Sub

Обьявлять переменные можно только внутри попрограмм.

Если я напишу так:

Private Sub [sensored]()

Type NN_DB

n As Long

StrNum As Long

TechInfoFile As String

End Type

End Sub

То он выдаст ошибку на стадии компиляции.

Ответить

Номер ответа: 4
Автор ответа:

otv

ICQ: 140550240

Вопросов: 2
Ответов: 6

Профиль | | #4

Добавлено: 22.03.03 22:35

Спасибо Erosу. Вопрос снимается.

Я получил что хотел:

Private Type NN_DB

n As Long

StrNum As Long

'TechInfoFile As String

End Type

Dim NN() As NN_DB

Ответить

Страница: 1 |