السلام عليكم و رحمة الله و بركاته
كيف أملئ Picklist ل DBstringGrid مباشرة من قاعدة البيانات بحيث يتم تحديث محتواها مع تغير عناصر الحقل المربوطة به.
أقصد DBGrid و ليس strigGrid لاني اود لعمود الوحدات ان ياخذ قيمه تلقائيا من قاعدة البيانات و شكرا مجددا
وعليكم السلام ورحمة الله وبركاته
اختر حدث مناسب تقوم من خلاله بتعبئة PickList بشكل داينامك:
كود :
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
var
S: TStringList;
begin
S := TStringList.Create;
with Table1 do
try
DisableControls;
First;
while not eof do begin
S.Add(Table1.FieldByName('AREA').AsString);
Next;
end;
finally
EnableControls;
end;
DBGrid1.Columns[3].PickList := S;
S.Free;
end;
ينظر:
http://delphi.about.com/od/usedbvcl/l/aa092703b.htm
بالتوفيق.
احسن الله اليك اخي لقد نجحت معي الفكرة بشكل جيد
كود :
procedure TFPrinc.FormCreate(Sender: TObject);
var
S: TStringList;
begin
S := TStringList.Create;
with TProduits do
try
DisableControls;
First;
while not eof do begin
S.Add(TProduits.FieldByName('Produit').AsString);
Next;
end;
finally
EnableControls;
end;
DBGrid1.Columns[4].PickList := S;
S.Free;
end;