Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2012, 16:31   #1
DataBase213
Пользователь
 
Регистрация: 11.04.2012
Сообщений: 10
Стрелка подсчёт пустых ячеек в дбгрид

3дравствуйте! Помогите написать код для подсчёта пустых ячеек дбгрида, допустим в 5 столбце, с названием stolb. Заранее благодарю'
DataBase213 вне форума Ответить с цитированием
Старый 27.04.2012, 16:44   #2
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
По умолчанию

Какая СУБД?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 27.04.2012, 16:53   #3
Dozent
Форумчанин
 
Регистрация: 21.05.2008
Сообщений: 495
По умолчанию

1) select count(stolb) from Table1 where stolb='';
2)
Код:
i:=0;
kol:=0;
DBGrid.First;//не помню есть ли такая возможность в гриде но если работат ьс TTable точно можно
while i<=DBGrid.RecCount-1 do
begin
 if DBGrid.Fields[5].ASString='' then kol:=kol+1;
//ещё можно так
If DBGrid.FieldsName['stolb']='' then kol:=kol+1;
DBGrid.Next
inc(i);
end;
Dozent вне форума Ответить с цитированием
Старый 27.04.2012, 16:59   #4
DataBase213
Пользователь
 
Регистрация: 11.04.2012
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Dozent Посмотреть сообщение
1) select count(stolb) from Table1 where stolb='';
2)
Код:
i:=0;
kol:=0;
DBGrid.First;//не помню есть ли такая возможность в гриде но если работат ьс TTable точно можно
while i<=DBGrid.RecCount-1 do
begin
 if DBGrid.Fields[5].ASString='' then kol:=kol+1;
//ещё можно так
If DBGrid.FieldsName['stolb']='' then kol:=kol+1;
DBGrid.Next
inc(i);
end;
ОГРОМНОЕ СПАСИБО! Всё работает)
DataBase213 вне форума Ответить с цитированием
Старый 27.04.2012, 17:03   #5
DataBase213
Пользователь
 
Регистрация: 11.04.2012
Сообщений: 10
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
Какая СУБД?
Использую Парадокс
DataBase213 вне форума Ответить с цитированием
Старый 27.04.2012, 17:10   #6
DataBase213
Пользователь
 
Регистрация: 11.04.2012
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Dozent Посмотреть сообщение
1) select count(stolb) from Table1 where stolb='';
2)
Код:
i:=0;
kol:=0;
DBGrid.First;//не помню есть ли такая возможность в гриде но если работат ьс TTable точно можно
while i<=DBGrid.RecCount-1 do
begin
 if DBGrid.Fields[5].ASString='' then kol:=kol+1;
//ещё можно так
If DBGrid.FieldsName['stolb']='' then kol:=kol+1;
DBGrid.Next
inc(i);
end;
Упс..нашлась ошибочка. При первом варианте считает только одну ячейку, когда свободных ячеек 2и более, то пишет 0.
А при втором варианте не понимает DBGrid.FieldsName
И в гриде нет first и nехt

Последний раз редактировалось DataBase213; 27.04.2012 в 17:14.
DataBase213 вне форума Ответить с цитированием
Старый 28.04.2012, 10:03   #7
Bit_Man
Пользователь
 
Регистрация: 11.03.2012
Сообщений: 29
По умолчанию

Код:
kol:=0;
DBGrid.DataSoгrce.DataSet.First;
while DBGrid.DataSource.DataSet.Eof do
begin
 if DBGrid.Fields[5].AsString='' then kol:=kol+1;// или Inc(kol);
//ещё можно так
 If DBGrid.FieldsByName['stolb']='' then kol:=kol+1;
DBGrid.DataSource.DataSet.Next;
end;
переделал немного. Давно на Делфи не пишу, надеюсь подойдет. И подсчет не в дбгриде, а датасете. Дбгрид лишь отображает данные.

Последний раз редактировалось Bit_Man; 28.04.2012 в 10:07.
Bit_Man вне форума Ответить с цитированием
Старый 28.04.2012, 11:24   #8
Dozent
Форумчанин
 
Регистрация: 21.05.2008
Сообщений: 495
По умолчанию

Ну я вам дал примерный рабочий код, в какую сторону смотреть, там уж и самому можно было посмотреть какие параметыр есть у ДБгрида и потом я скзал что точно будит с Табле работать... а запрос неможет работать не правильно)
Dozent вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчет пустых ячеек Artem_85 Microsoft Office Excel 2 24.02.2012 14:49
Удаление пустых ячеек в Word Didar Microsoft Office Word 5 20.01.2011 20:38
Зависимость графика от пустых ячеек WhiteLion Microsoft Office Excel 2 10.03.2010 21:15
Сумма пустых ячеек дает 0 Miheiy Microsoft Office Excel 16 23.01.2010 12:05
Нестандартная задача с цветами ячеек ДБГрид! Abbatik БД в Delphi 2 02.02.2008 18:02