Topic: вывести количество в label1
как сделать чтобы в lable1 отображалось общее количество записей tablegrid1, только тех у которых пустой 3-й столбец.
My Visual Database → Russian → вывести количество в label1
как сделать чтобы в lable1 отображалось общее количество записей tablegrid1, только тех у которых пустой 3-й столбец.
Как-то так:
procedure Form1_OnShow (Sender: string; Action: string);
var
a: string;
begin
a := IntToStr (SQLExecute('SELECT count(id) FROM Table WHERE 3stolbec.Table IS NULL') );
Form1.Label1.Caption:= 'Общее количество записей: ' + a;
end;
Здесь:
id - идентификатор записи
Table - название таблицы (не путать с гридом)
3stolbec - название поля таблицы Table (которое является третьим столбцом в вашем гриде)
Вроде должно работать.
работает но данные берутся из базы, а мне надо чтобы данные брались из грида.
procedure Form1_Button24_OnClick (Sender: string; var Cancel: boolean);
var
i,c,q: integer;
s: string;
begin
saverez.show;
q := 0;
c := Form1.tablegrid3.RowCount - 1;
for i := 0 to c do
if Form1.tablegrid3.Cells[3,i] = '' then Inc(q);
saverez.Label6.Caption := IntToStr(q);
end;
сделал так..вроде работает))
My Visual Database → Russian → вывести количество в label1
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi