FireMonkey Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
FireMonkey 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

FireMonkey Q&A
[121] Tgrid를 사용 하여 공통/상세를 조회하는데 터치 하면 첫줄 라인 값만 계속 나옵니다
delphi [p8470948] 1011 읽음    2015-08-20 11:44
자료 조회 후 그리드를 터치 하면 해당라인의 그리드 값을 가져와야 되는데
다른 라인 터치 해도 항상 첫줄 값만 나옵니다.

무엇이 문제일까요?

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;

+ -

관련 글 리스트
121 Tgrid를 사용 하여 공통/상세를 조회하는데 터치 하면 첫줄 라인 값만 계속 나옵니다 delphi 1011 2015/08/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.