powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
4 сообщений из 4, страница 1 из 1
If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
    #33108695
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть проблема с использованием тэгов для колонок TDBGrid.
Tag - имеет тип Object и никак не могу найти как провреить строка ли там хранится.
Всякие isNull, isEmpty не помогут.
'А если напишу:
Код: plaintext
TDBGrid1.Columns(i).Tag = rsG("Tag")     'без Cstr( )
'то ввобще не текст, а DataField в тэге хранится
В хелпе написано, что можно еще и Columns().DefaultValue использовать (с оговорками), а про Tag - почти ничего!

Вопрос:
Как узнать Columns(i).Tag - это строка или нет?
...
Рейтинг: 0 / 0
If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
    #33108731
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторTag - имеет тип Object
Был бы он Object, строки в нем не хранились бы. Вообще-то он имеет тип Variant.

авторКак узнать Columns(i).Tag - это строка или нет?
IsObject, TypeName
...
Рейтинг: 0 / 0
If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
    #33108745
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WorobjoffЕсть проблема с использованием тэгов для колонок TDBGrid.
Tag - имеет тип Object и никак не могу найти как провреить строка ли там хранится.
Всякие isNull, isEmpty не помогут.
'А если напишу:
Код: plaintext
TDBGrid1.Columns(i).Tag = rsG("Tag")     'без Cstr( )
'то ввобще не текст, а DataField в тэге хранится
В хелпе написано, что можно еще и Columns().DefaultValue использовать (с оговорками), а про Tag - почти ничего!

Вопрос:
Как узнать Columns(i).Tag - это строка или нет?
нажать на F2
...
Рейтинг: 0 / 0
If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
    #33108940
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy
IsObject, TypeName
Про IsObject - то я совсем забыл!
Все, теперь заработало!
Код: plaintext
1.
2.
3.
4.
If IsObject(c.Tag) Then
   rsG("Tag") = ""
Else
   rsG("Tag") = c.Tag
End If
Надо было сразу здесь на форуме спросить.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / If TDBGrid1.Columns(i).Tag = "xxx" Then ' проблема
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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