Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 08.11.2016
Сообщений: 23

Type mismatch: array or user-defined type expected

14.12.2016, 18:51. Показов 1095. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Visual Basic
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
34
Sub Glavnaja2()
    
    '
    '
    Dim PathOut As String
    Dim Line1 As String
    Dim Line2() As String
    Dim SheetName As String
    Dim Данные() As ГорючГаз, Gg As ГорючГаз
    Dim i As Integer, j As Integer, k As Integer
    Dim VUkaz() As Integer, Napravl As Integer, NumPar As Integer
    
    Const KolP = 6, KolG = 19
    SheetName = "ВоспГаз"
    Call ЧтениеЛиста(SheetName, Line1, Line2, Äàííûå, KolP, KolG)
    
   
    NumPar = NumParSort
    
    Napravl = NaprSort
    
    
    'Создание вектора ключей
    ReDim VKey(KolG - 1)
    ReDim VUkaz(KolG - 1)
    Call VectKey(Данные, VKey, KolG)
    
    'Получение вектора-указателя
    Call UkazUp(VKey, VKaz, KolG)
    
    PathOut = "B:\Student\TFiles\ВоспламГаз.txt"
    Call OutTextFile(PathOut, Line1, Line2, Данные, KolP, KolG)
         
End Sub
вот в этой строчке Call VectKey(Данные, VKey, KolG)
на VKey выходит та самая ошибка при компиляции, не знаю почему..
Помогите
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.12.2016, 18:51
Ответы с готовыми решениями:

Код не работает. Ошибка User-defined type not defined.
Всем привет! Помогите разобраться почему не работает. Dim xl As New Excel.Application Dim xlw As Excel.Workbook '...

Ошибка: user-defined type not defined
Может кто уже встречался с такой траблой: user-defined type not defined при попытке объявить функцию GetMessage: Private Declare...

User-defined type not defined
друзья помогите ... я новичок в Visual Basic 6.0, выскакивает ошибка (user-defined type not defined) и выделяется первый ряд, что...

3
Модератор
Эксперт CЭксперт С++
 Аватар для sourcerer
5288 / 2376 / 342
Регистрация: 20.02.2013
Сообщений: 5,773
Записей в блоге: 20
14.12.2016, 19:17
slava25t, какое отношение это имеет к C++?
0
14.12.2016, 19:20
 Комментарий модератора 
slava25t, пожалуйста, прочитайте правила форума.
Особое внимание обратите на пункт 4.9 (порядок оформления кода).
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
14.12.2016, 20:23
Цитата Сообщение от slava25t Посмотреть сообщение
Call VectKey(Данные, VKey, KolG)
Ну и где этот VectKey ?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.12.2016, 20:23
Помогаю со студенческими работами здесь

Не вызывается функция (Type mismatch: array or user-defined type expected)
Помогите Option Explicit Dim X() As Double Dim Y() As Double Sub Кнопка1_Щелчок() Dim i As Integer Dim a As Double Dim n As...

Не могу понять как исправить ошибку (Expected user-defined type, not project)
Создал форму добавления/удаления полей в таблицы. При добавлении нового поля вылазит ошибка

User-defined type not defined. Ругается на объявление корневой процедуры
Привет! Поискал решение, не нашел, давно не обращался за помощью на форум так вот ругается на первую же строчку кода, т.е. на "Sub...

Ошибка `user-defined type not defined`. VBA для OneNote
Используется Win-7; Excel-2016; OneNote-2016. Пробую выполнить пример согласно этой статьи: "Navigating to a Notebook in...

Compile error: User-defined type not defined помогите разобраться
Есть код: Private Sub Поле1_GotFocus() Dim dbs As Database Dim rst As Recordset Dim strSQL As String Set...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru