Q&A

  • DB그리드에서 순번을 매기는 진짜 방법은 ?
* 사용환경

Server:Unix 7.1.0, ORACLE 7.3, Entera 3.2(middleware)

Client:Windows 98, Delphi3.0

* 에러 메시지 :

수고많으십니다. 델파이를 사랑하시는 여러분..

다름이 아니고, DB그리드에서 순번을 매기는 방법을 연구하려고 하는데,

소스에서

procedure Twf_lidhc001100w.ClientDataSet2CalcFields(DataSet: TDataSet);

var

b_SNO : Integer;

begin

ClientDataSet2.FieldByName('RowNum').Value := intToStr(ClientDataSet2.RecNo);

if ClientDataSet2.RecNo = -1 then // ClientDataSet1을 맨처음은 -1로 가지게됨.

ClientDataSet2.FieldByName('b_SNO').asinteger := 1

else ClientDataSet2.FieldByName('b_SNO').asinteger := ClientDataSet2.RecNo;

end;

event에는 OnCalcFields:ClientDataSet2CalcFields로 등록을 했구요.

이렇게 추가했더니 순번이 0001 혹은 0002로 생기고 1,2,3...번순으로 처리가

안되는데 이유는 무엇이고 또 왜 안되는 것인지 궁금합니다.

혹시나 저희는 엔테라라는 미들웨어를 같이 쓰는데 DataServer(sql문)를 따로 수정

해야 하는지도 답변주시면 감사하겠습니다.

고수분들의 빠른 답변 부탁드려요...



0  COMMENTS