VBNet - Форум - Комбобоксы и функция

Вопрос: Комбобоксы и функция Добавлено: 17.05.05 10:17

Автор вопроса: guest2006

I. -------------------------------------------------------
Доброго времени суток!
Плиз, подскажите, новечку!

Выполняется код


For Each ctl In forma1.Controls
  If ctl.ControlType = acComboBox Then
    s = ctl.Name
    .Bookmarks.Item(s).Range.Text = forma1(s).ItemData(forma1.ListIndex)
     Err.Clear
  End If
Next ctl

этот отрывок выводит в Word выбранные значения из acComboBox, но в случае когда источником строк
является SQL запрос, то выводится не текущее значение, а его порядковый номер из списка.

Помогите, пожалуйста, сделать так, чтобы выводилось значение, а не его номер.

II.-------------------------------------------------------
Есть функция

Public Function SummaPropisRUR(Num As Variant) As String

Access вставляется в Word значение по шаблону.
К примеру, если пишу:

.Bookmarks.Item("Аванс").Range.Text = SummaPropisRUR(123)

то появляется "сто двадцать три"-так должно быть.

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

.Bookmarks.Item("Аванс").Range.Text = SummaPropisRUR(Me("Аванс"))

ничего не получается.

По-моему, нужно как-то преобразовать типы, тип Me("Аванс") к численному, пробовал val(Me("Аванс")) ничего не получается. Аванс-поле ввода acTextBox.
Ответить

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

Номер ответа: 1 Автор ответа: Vitalij Вопросов: 0 Ответов: 2	Профиль \| \| #1	Добавлено: 17.05.05 14:27
	тип Me("Аванс" - CVar (функция) - преобразование выражения к типу Variant .Bookmarks.Item("Аванс".Range.Text = SummaPropisRUR(CVar(Me("Аванс")) Ответить

Номер ответа: 2 Автор ответа: guest2006 Вопросов: 3 Ответов: 6	Профиль \| \| #2	Добавлено: 17.05.05 14:55
	Пробовал не получается Ответить

Номер ответа: 3 Автор ответа: guest2006 Вопросов: 3 Ответов: 6	Профиль \| \| #3	Добавлено: 17.05.05 20:54
	С функцией SummaPropis разобрался, а ComboBox'ом нет??? Ответить

Номер ответа: 4 Автор ответа: Vitalij Вопросов: 0 Ответов: 2	Профиль \| \| #4	Добавлено: 18.05.05 11:49
	.Bookmarks.Item(s).Range.Text = forma1(s).ItemData(forma1.ListIndex) Попробуй .Bookmarks.Item(s).Range.Text = forma1(s).ItemData(forma1.List) Ответить

Номер ответа: 5 Автор ответа: guest2006 Вопросов: 3 Ответов: 6	Профиль \| \| #5	Добавлено: 18.05.05 18:21
	Тоже не получается... Ответить

Страница: 1 |