У меня на форме около 20ти компонентов. Я описал тип-структуру, содержащую текст в этих компонентах. Потом создал процедуру, получающую эти данные последовательно проходя по всем компонентам.
Type TLg
Jf As Variant
..
End Type
Sub GetData(Lg As TLg)
....
здесь я получаю данные SQAGetProperty() и заношу их в структуру Lg
....
End Sub
Sub Main
Dim V As TLg
GetData(V) вызывает ошибку Illegal use of TYPE var in expression
Подскажите, пожалуйста, как правильно это сделать, чтобы работало. Пробовал функцией, но там тоже не получалось. Ошибка была типа конвертирования структурного типа в вариантный. :-(
Подскажите как...
Автор nazarov, 03 ноя 2006 10:38
Сообщений в теме: 3
#1
Отправлено 03 ноября 2006 - 10:38
#2
Отправлено 03 ноября 2006 - 11:24
попробуйте изменить main процедуру вот так:
Sub Main Dim V As TLg Call GetData(V) End Sub
#3
Отправлено 03 ноября 2006 - 12:39
Спасибо! Работает!
#4
Отправлено 03 ноября 2006 - 12:55
Кстати, это не единственный возможный вызов процедуры содержащей аргументы. Посмотрите "Call Statement" в хелпе.
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных