Скачать: CL | DM;

TTable, TTable.Filter   Найти похожие ветки 

← →
Alexander Smith ©   (2004-02-13 01:22) [0]

Здравствуйте все.
Если не влом и не сложно, то помогите.

Вопрос №1.
Итак.
Инициализируем фильтр таблички.

Table1.Filter="(FIO="+QuotedStr(Crypt(IncomingValue0)+"*")+")";
if (a>2) then
Table1.Filter="and (DEP="+QuotedStr(Crypt(IncomingValue1)+"*")+")";
if (a>4) then
Table1.Filter="and (ACCOUNT_BALLANCE="+QuotedStr(Crypt(IncomingValue2)+"*")+")";
Table1.Filtered:=True;

Допустим результатом фильтрации является пустая таблица.
Как мне это увидеть - какое св-во или событие возникает при этом ?
ВНИМАНИЕ! RecNo и всем с ним связанное не предлагать!

Вопрос №2.
Возникает ошибка "Could not convert variant of type (Null) into type (String)".
Возникает в этой строчке
Text:=Sender.Value;
где Text - var String, Sender.Value - значение некого поля Table1 которое для рисования в DBGrid по событию OnGetText изменяется в соответствующей процедуре.
Каким If-ом мне отследить то, что Sender.Value имеет Type Null, если вообще оно Type Variant.
т.е.

If not(логическое выражение) then
begin
Test:=Sender.Value
...
end
else
begin
...
end;

Заранее спасибо.
С уважением.

---

← →
SPIRIT ©   (2004-02-13 06:36) [1]

> Возникает ошибка "Could not convert variant of type (Null)
> into type (String)".

if sender.value<>null then *************

---

← →
Кщд   (2004-02-13 06:40) [2]

правильнее TField.IsNull, imho

>RecNo и всем с ним связанное не предлагать!
это почему?

---

← →
Sirgfine   (2004-02-13 06:59) [3]

На вопрос 1
...
Table1.First;
Table1.Eof;
...
если первая запись является окончанием (не последней, а кончанием), то таблица точно пустая.

Ещё можешь проверить значение в столбце, который не может быть пустым, но это сложнее и он может быть единственным пустым в строке...

---

← →
Silver Alex ©   (2004-02-13 09:23) [4]

1.Dataset.IsEmpty
2.VarIsNull(v) проверяет или v не null

---

← →
bykopor ©   (2004-02-13 10:00) [5]

TField.Text -
можна еще
TField.AsString - но при етом может вызыватся такая же ошибка

---

← →
Alexander Smith ©   (2004-02-13 13:28) [6]

Всем огромное спасибо. Все помогло.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c