چطور می توان به فیلدهای dbgrid دسترسی داشت؟

[ghazal20]

چگونه می توان وقتی خاصیت botton style را برابر cbsEllipsis قرار می دهیم ' آیتم انتخاب شده را به فیلد موردنظر DBGrid نسبت داد .( در حقیقت روش دستیابی به فیلدهای dbgrid با کد را می خواهم) :گیج:

[vcldeveloper]

در حقیقت روش دستیابی به فیلدهای dbgrid با کد را می خواهم



DBGrid1.Columns[index].Field.Value


بجای Index از شماره ستون مورد نظر در DBGrid استفاده کن. مثلا برای ستون اول index = 0

[reza5]

با سلام
من میخوام خونه های dbgrid رو پیماش کنم یعنی مثل ماتریس از بالا از ردیف اول و ستون اول شروع کنم
و برم ردیف اول ستون دوم همینجوری تا اخر dbgrid
یعنی ردیف n ام ستون m ام رو پیمایش کنم و مقادیر خونه ها رو بخونم.چیکار باید بکنم ؟
برای پروزه ام نیاز دارم وقت ندارم. :(
با تشکر

[sasan_x3e8]

دوستان لطفاً کمک کنید منم مشکلم همینه

[omran.av]

سلام دوستان
معمولا برای دستیابی به مقادیر سطر و ستون dbGrid از کامپوننت های که با پایگاه داده در ارتباطند استفاده می کنیم مثلا ADOTable ولی اگه شما می خواین از طریق خود DBGrid دسترسی پیدا کنید می تونید این کار که من تو کد پایین انجام دادم استفاده کنید.
function TForm2.GetDBGridValue(index : Integer): Integer;
begin
Result := StrToInt(VarToStr(DBGrid1.Columns[index].Field.Value));
end;

procedure TForm2.Button1Click(Sender: TObject);
var
I, Sum: Integer;
begin
ADOTable1.First;
while not ADOTable1.Eof do
begin
for I := 0 to DBGrid1.Columns.Count-1 do
begin
Sum := Sum + GetDBGridValue(I);
end;
ADOTable1.Next;
end;
end;