powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передача параметра в функцию
5 сообщений из 5, страница 1 из 1
Передача параметра в функцию
    #33771758
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть у меня такая функция в главном модуле

Public Function ClearFilter(fr As String)
Dim col As TrueOleDBGrid80.Column
For Each col In TDBGrid1.Columns
col.FilterText = ""
Next col
End Function

fr - имя передаваемой формы

но она не работает до тех пор, пока вместо этого:
TDBGrid1.Columns
не напишешь вот это:
frm_tel.TDBGrid1.Columns
т.е. надо перед этим указать имя формы.

передаю имя формы так:
ClearFilter(form.name) - тут всё ок, она переходит в функцию.
вопрос, как передать имя формы правильно в функцию?
пыталась так:
fr.TDBGrid1.Columns - не работает
" & fr. & " & TDBGrid1.Columns - тоже на работает. Помогите!!!
...
Рейтинг: 0 / 0
Передача параметра в функцию
    #33771801
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Надо передавать саму форму, а не её имя.
Код: plaintext
1.
2.
3.
4.
5.
Public Function ClearFilter(ByRef fr As Form)
Dim col As TrueOleDBGrid80.Column
For Each col In fr.TDBGrid1.Columns
col.FilterText = ""
Next col
End Function

Хотя правильней для данной задачи - передавать объект TDBGrid1
...
Рейтинг: 0 / 0
Передача параметра в функцию
    #33771824
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как сам параметр передавать?

эта строка уже не катит

ClearFilter(form.name)
...
Рейтинг: 0 / 0
Передача параметра в функцию
    #33771832
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
НастенькаА как сам параметр передавать?

эта строка уже не катит

ClearFilter(form.name)

ClearFilter Me
или НаименФормы
...
Рейтинг: 0 / 0
Передача параметра в функцию
    #33771858
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо огромное, всё работает.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передача параметра в функцию
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]