Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 77
1

Как Пропускать пустые ячейки В DBGrid

27.04.2014, 18:57. Показов 1365. Ответов 3
Метки нет (Все метки)

Ребята помогите уже неделю не могу решить задачку. У меня есть ADOQuery ADOTable DBGrid И Кнопка. При нажатии на кнопку должно суммироваться если ячейки равны нулю и выводится сообщение. а у меня и пустые ячейки принимает как ноль и суммирует. Например если у меня там четыре нуля то в сообщении должно выводится "4". вот мой код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TfrmGlav.SpeedButton9Click(Sender: TObject);
  var
  s,i,sum:integer; l :real;
  begin
  sum:=0;
  s:=0;
  for i:=3 to ADOTable1.FieldCount-1 do
  begin
  if ADOTable1.Fields[i].AsInteger=0 then s:=s+1;
  end;
  showmessage(inttostr(s));
  end;
помогите очень прошу!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2014, 18:57
Ответы с готовыми решениями:

Как пропускать пустые ячейки?
Уважаемые форумчане проблема такова: Значения из datagridview переносятся в таблицу word, но при...

Как пропускать пустые ячейки в массиве?
При проходе через цикл for по массиву. Выдаёт ошибку: Undefined offset Дело в том что массив...

Как посчитать пустые ячейки?
Добрый день! Столкнулся с такой проблемой. Можно сказать новичок в Access. Проблема следующая. У...

Как добавить пустые пронумерованые строки в DbGrid?
Как добавить пустые-пронумерованые строки в Dbgrid ? Добавление столбцов и задание название...

3
1073 / 986 / 340
Регистрация: 07.08.2012
Сообщений: 2,782
28.04.2014, 10:13 2
Может помочь, а может и не помочь (зависит от СУБД):
Delphi
1
2
3
  for i:=3 to ADOTable1.FieldCount-1 do
    if (ADOTable1.Fields[i].AsVariant <> NULL) and (ADOTable1.Fields[i].AsInteger=0) then 
      s:=s+1;
1
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 77
28.04.2014, 21:17  [ТС] 3
Спасибо за ответ. Но я только что решил таким способом:
Delphi
1
 if ADOTable1.Fields[i].Value=0 then s:=s+1;
0
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 77
01.05.2014, 20:10  [ТС] 4
И еще хотел бы спросить как скрыть одну строку в DBGrid по нажатию кнопки? все поиски в Гугле не помогли
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2014, 20:10

Как формуле пропустить пустые ячейки?
Есть столбец &quot;А&quot; с данными, но данные идут не подряд, а вразнобой, т.е. 1 ячека с данными следующие...

Как удалить пустые ячейки таблицы?
Привет! Пытаюсь писать что то типа этого, но видимо неправильно: delete Вопросы from Table1...

Как в экселе не учитывать пустые и нулевые ячейки
Друзья, помогите, сломал всю голову. У меня забита формула (см. пример) в столбце &quot;С&quot;, но считаются...

Как убрать пустые ячейки при переносе?
Добрый день. Такая проблема: есть таблица на Листе1 и таблица на Листе2. на листе 1 объединенные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.