Как передать значение поля в процедуру из библиотеке скриптов

@rm2005 · Регистрация: 01.12.2006

Студворк — интернет-сервис помощи студентам

Здавствуйте, у меня вот такой вопрос

Подцепил директивой use "MyProc" процедуру из библиотеке скриптов

Код

sub MyProc(MyVal as variant)
тут чего-то делаем
end sub

вызываю

Код

Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument
Set CurrentDoc = CurrentUIDoc.Document
MyID - поле документа
Call MyProc(CurrentDoc.MyID) - здесь ошибка несовпадения типов "Type Mismatch"

Получилось передать значение только изменив параметр в процедуре на стринг и передав значение поля через промежуточную строковую переменную. Но это мне кажется как-то криво.

Подскажите, как лучше сделать.

@Hydk · 23.04.2007, 15:54

а что мешает использовать функцию преобразования в cтроку Cstr ???

@rm2005 · 23.04.2007, 16:07

Для: Hedg
Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать?

@Hydk · 23.04.2007, 16:17

Как мне видиться

Код

Call MyProc(Cstr(CurrentDoc.MyID))

@rm2005 · 23.04.2007, 16:25

Для: Hedg
Поменял

Код

sub MyProc(MyVal as string)

Вызываю

Код

Call MyProc(Cstr(CurrentDoc.MyID))

Всё равно "Type Mismatch"

@Hydk · 23.04.2007, 16:29

А вот так

Код

Call MyProc(Cstr(CurrentDoc.MyID(0)))

@Okyom7 · 23.04.2007, 16:33

<span class="vbquote">(rm2005 @ 24:04:2007, 14:54 )</span>Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать?
[snapback]63279" rel="nofollow" target="_blank[/snapback]?[/quote]
только если передать процедуре сам документ

@rm2005 · 23.04.2007, 16:40

Для: Hedg
Спасибо, так работает. А если в поле состоит из 2 строк, можно ли передать?

Call MyProc(Cstr(CurrentDoc.MyID.text))

не работает.

Для: Ogion7
Буду делать через документ.

@Hydk · 23.04.2007, 16:41

Для: rm2005
Если строк больше чем одна, то так работаь не будет.

@Okyom7 · 23.04.2007, 16:50

если тама список, можно через ForAll

@Okyom7 0 / 0 / 0 Регистрация: 12.10.2006 Сообщений: 185
	23.04.2007, 16:50	10
	если тама список, можно через ForAll 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
		1
	Как передать значение поля в процедуру из библиотеке скриптов 23.04.2007, 15:52. Показов 17583. Ответов 9 Метки нет (Все метки) Здавствуйте, у меня вот такой вопрос Подцепил директивой use "MyProc" процедуру из библиотеке скриптов Код sub MyProc(MyVal as variant) тут чего-то делаем end sub вызываю Код Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument Set CurrentDoc = CurrentUIDoc.Document MyID - поле документа Call MyProc(CurrentDoc.MyID) - здесь ошибка несовпадения типов "Type Mismatch" Получилось передать значение только изменив параметр в процедуре на стринг и передав значение поля через промежуточную строковую переменную. Но это мне кажется как-то криво. Подскажите, как лучше сделать. 0

@Hydk 1 / 1 / 0 Регистрация: 23.04.2006 Сообщений: 226
	23.04.2007, 15:54	2
	а что мешает использовать функцию преобразования в cтроку Cstr ??? 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	23.04.2007, 16:07	3
	Для: Hedg Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать? 0

@Hydk 1 / 1 / 0 Регистрация: 23.04.2006 Сообщений: 226
	23.04.2007, 16:17	4
	Как мне видиться Код Call MyProc(Cstr(CurrentDoc.MyID)) 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	23.04.2007, 16:25	5
	Для: Hedg Поменял Код sub MyProc(MyVal as string) Вызываю Код Call MyProc(Cstr(CurrentDoc.MyID)) Всё равно "Type Mismatch" 0

@Hydk 1 / 1 / 0 Регистрация: 23.04.2006 Сообщений: 226
	23.04.2007, 16:29	6
	А вот так Код Call MyProc(Cstr(CurrentDoc.MyID(0))) 0

@Okyom7 0 / 0 / 0 Регистрация: 12.10.2006 Сообщений: 185
	23.04.2007, 16:33	7
	<!--QuoteBegin-rm2005+24:04:2007, 14:54 --> <span class="vbquote">(rm2005 @ 24:04:2007, 14:54 )</span><!--QuoteEBegin-->Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать? [snapback]63279" rel="nofollow" target="_blank[/snapback]?[/quote] только если передать процедуре сам документ 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	23.04.2007, 16:40	8
	Для: Hedg Спасибо, так работает. А если в поле состоит из 2 строк, можно ли передать? Call MyProc(Cstr(CurrentDoc.MyID.text)) не работает. Для: Ogion7 Буду делать через документ. 0

@Hydk 1 / 1 / 0 Регистрация: 23.04.2006 Сообщений: 226
	23.04.2007, 16:41	9
	Для: rm2005 Если строк больше чем одна, то так работаь не будет. 0

Опции темы