procedure Tfrm0708.SetData ( szRealcode : String ;
szName2 : String;
szRealName : String );
var
I : integer;
Data : String;
GridData : String;
begin
Data := autosell.GetFieldData( 'OutBlock', szName2 )
For I := 0 to autosellGrid.RowCount-2 do
begin
GridData := autosellGrid.Cells[2,I+1];
if GridData = szRealcode then
autosellGrid.Cells[3,I+1] := Data;
End;
end
procedure Tfrm0708.autosellQReceiveData(ASender: TObject;
const szTrCode: WideString);
var
//Data : WideString;
Data2 : WideString; /
I : Integer;
nCount : Integer;
begin
nCount :=autosellQ.GetBlockCount('t8407OutBlock1');
For I := 0 to nCount do
begin
data2 := autosellQ.GetFieldData('OutBlock1','shcode',I);
SetData ( data2 ,'price' , szTrCode );
====================> setdata 함수 호출하고 setdata에 있는 for문 다 돌고나서 access viloataion이 생기네요
setdata에 값들은 잘 들어가는 것 같구요... 에러 메시지 첨부합니다..
End;
고수님들 체크좀 해주시면 감사하겠습니다.
|