30-04-2022, Saat: 12:58
(30-04-2022, Saat: 12:33)OZCANK Adlı Kullanıcıdan Alıntı: [ -> ](30-04-2022, Saat: 12:25)cinarbil Adlı Kullanıcıdan Alıntı: [ -> ] o zaman sorun ıf karşılaştırmasında
if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış'
burada bir yanlışlık var kayıt sayısı az ise (çünkü her sutun çiziminde buraya gelecek program) aşağıdaki gibi deneyin
Procedure en başına ıf satırı üstüne
Showmessage(FaturaListe.FieldByName('DURUM').AsString);
burada Aktarılmış veya Aktarılmamış yazıyorsa
son olarak
if Trim(FaturaListe.FieldByName('DURUM').AsString)=Trim('Aktarılmış')deneyin.
Tüm satırı değilde sadece DURUM sütününü nasıl yaparım?
Buyrun
procedure Tpersonel_form.personel_gridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
// şarta göre renklerdirme
if (data_form.personel_sorgu.FieldByName('PER_BOLUM').AsString='İMALAT')
then
if DataCol in [2] then begin // renklendirilecek kolon index no
personel_grid.Canvas.Brush.Color:=ClGreen;
personel_grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;