자료 조회 후 그리드를 터치 하면 해당라인의 그리드 값을 가져와야 되는데
다른 라인 터치 해도 항상 첫줄 값만 나옵니다.
무엇이 문제일까요?
procedure TForm3.Grid1Click(Sender: TObject);
var
svMethod : TServerMethods2Client;
svDs : Variant;
sAccDate,FsAccDate, TsAccDate, sQmCD, sGubun: string;
begin
TabControl1.ActiveTab := TabItem3;
if not SQLCon.Connected then SQLCon.Connected := True;
if dtINOUTDtList.Active then dtINOUTDtList.Active := False;
svMethod := TServerMethods2Client.Create(SQLCon.DBXConnection);
try
Grid2.BeginUpdate;
Grid1.Cursor := crSQLWait; //조회중 로딩 표현
sAccDate := dtINOUTList.FieldByName('C001').AsString;
// sAccDate := FormatDateTime('YYYYMMDD',edt_TAccDate.Date);
sQmCD := dtINOUTList.FieldByName('C999').AsString;
sGubun := dtINOUTList.FieldByName('C004').AsString;
svDs := svMethod.GetINOUTDtList(sAccDate,sQmCD,sGubun);
Label1.Text := sAccDate + ' ' + sQmCD + ' ' + sGubun; <==== 이분분 값이 그리드 라인이 바꾸어 터치 하면
항상 첫줄값만 나옵니다..
dtINOUTDtList.Data := svDs;
finally
svMethod.Free;
SQLCon.Connected := False;
Grid2.EndUpdate;
Grid1.Cursor := crDefault;
end;
end;
|