Q&A
- DB 그리드에서 순번을 매기는 소스를 썼더니 에러가....
수고많으십니다.
델파이초짜 정상원이라고 합니다.
다름이 아니고 아래와 같은 소스를 써서 현황화면에서 조회를 해보면 1번소스에는
(주소와 전화번호등) 공란으로 나오는 컬럼이 있는데 2번 소스로 또다른 현황에서
조회를 해보면 모두 정상으로 나옵니다.
이유를 아시는 고수분들은 필히 연락(jsw7120@netian.com)이나 답변주시면 감사하겠습니다.
그럼 수고하세요..
1) procedure Twf_lidhc001100w.ClientDataSet1CalcFields(DataSet: TDataSet);
var
b_SNO : Integer;
i : Integer;
begin
i := ClientDataSet1.RecordCount;
//for j := 1 to i do begin
if ClientDataSet1.RecNo = -1 then begin // ClientDataSet1을 맨처음은 -1로 시작
ClientDataSet1.FieldByName('b_SNO').asinteger := 1
end
else
begin
ClientDataSet1.FieldByName('b_SNO').asinteger := ClientDataSet1.RecNo;
end;
// ClientDataSet2.Next;
// end;
end;
2) procedure Twf_lidhc001100w.ClientDataSet2CalcFields(DataSet: TDataSet);
var
b_SNO : Integer;
i : Integer;
begin
i := ClientDataSet2.RecordCount;
// for j := 1 to i do begin
if ClientDataSet2.RecNo = -1 then begin // ClientDataSet2을 맨처음은 -1로 시작
ClientDataSet2.FieldByName('b_SNO').asinteger := 1
end else
begin
ClientDataSet2.FieldByName('b_SNO').asinteger := ClientDataSet2.RecNo;
end;
//ClientDataSet2.Next;
//end;
end;
델파이초짜 정상원이라고 합니다.
다름이 아니고 아래와 같은 소스를 써서 현황화면에서 조회를 해보면 1번소스에는
(주소와 전화번호등) 공란으로 나오는 컬럼이 있는데 2번 소스로 또다른 현황에서
조회를 해보면 모두 정상으로 나옵니다.
이유를 아시는 고수분들은 필히 연락(jsw7120@netian.com)이나 답변주시면 감사하겠습니다.
그럼 수고하세요..
1) procedure Twf_lidhc001100w.ClientDataSet1CalcFields(DataSet: TDataSet);
var
b_SNO : Integer;
i : Integer;
begin
i := ClientDataSet1.RecordCount;
//for j := 1 to i do begin
if ClientDataSet1.RecNo = -1 then begin // ClientDataSet1을 맨처음은 -1로 시작
ClientDataSet1.FieldByName('b_SNO').asinteger := 1
end
else
begin
ClientDataSet1.FieldByName('b_SNO').asinteger := ClientDataSet1.RecNo;
end;
// ClientDataSet2.Next;
// end;
end;
2) procedure Twf_lidhc001100w.ClientDataSet2CalcFields(DataSet: TDataSet);
var
b_SNO : Integer;
i : Integer;
begin
i := ClientDataSet2.RecordCount;
// for j := 1 to i do begin
if ClientDataSet2.RecNo = -1 then begin // ClientDataSet2을 맨처음은 -1로 시작
ClientDataSet2.FieldByName('b_SNO').asinteger := 1
end else
begin
ClientDataSet2.FieldByName('b_SNO').asinteger := ClientDataSet2.RecNo;
end;
//ClientDataSet2.Next;
//end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- XXX
- 2001.06.12 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- XXX
- •
- 2001.06.12 19:58
- 1 COMMENTS
- /
- 0 LIKES
-
저렙•2001.06.12 20:14select sche_loc, sche_item, sche_stok, sche_flow, sche_time from dbsche ,dimast where sche_item =...
-
- 만준
- 2001.06.12 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 잘모르겠어요
- •
- 2001.06.12 19:18
- 1 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:48혹시 DBGrid와 연결한 DataSet이 Query가 아닌지...??? 그렇담... Query의 RequestLive 속성을 True로 ...
-
- 강길남
- 2001.06.12 19:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤재선
- 2001.06.12 22:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 백승진
- 2001.06.12 08:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 정은재
- •
- 2001.06.12 07:32
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.06.12 15:45정은재 wrote: > 안녕하세요.. 정말 급한일이니 아시는 분은 꼭좀.. ㅎㅎ > > 테이블 구조 > > mv_M...
-
- 왕초보
- •
- 2001.06.12 07:29
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.06.12 16:07왕초보 wrote: > bitbutton에 글자를 두줄로 넣고 싶은데 어떻게 하면 되나요! > > 고수님들의 조언 부...
-
- 정상원
- •
- 2001.06.12 05:25
- 1 COMMENTS
- /
- 0 LIKES
수고많으십니다. 델파이초짜 정상원이라고 합니다. 다름이 아니고 아래와 같은 소스를 써서 현황화면에서 조회를 해보면 1번소스에는 (주소와 전화번호등) 공란으로 나오는 컬럼이 있는데 2번 소스로 또다른 현황에서 조회를 해보면 모두 ...-
마으미•2001.06.13 10:15아래의 소스가 정상적인건가요? 정리 좀 해서 올리시면 보기가 훨씬 좋구 다른 분들도 답해 드렸을텐데.. ...
-
- 델파이야
- 2001.06.12 04:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 나상엽
- •
- 2001.06.12 04:27
- 2 COMMENTS
- /
- 0 LIKES
-
파도랑•2001.12.11 00:49오라클을 사용하고 있다면... SELECT NVL(F1, 0) + NVL(F2, 0) AS SUM FROM A_TABLE 또는 SELECT DECO...
-
왕초보•2001.06.12 18:34SQL Server 는 ISNULL 함수입니다... SELECT ISNULL(NUMBER,0) FROM TAB_01 ....
-
- 박원진
- •
- 2001.06.12 04:19
- 1 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.12 05:20델파이에서도 모듈 추가가 가능합니다. File -> New -> Unit -> Unit 이름 주고 -> Save As 로 외부 화일...
-
- 박태준
- •
- 2001.06.12 04:19
- 2 COMMENTS
- /
- 0 LIKES
-
김지원•2001.06.14 06:09박태준 wrote: > 윈도우즈에서 화면 크기가 > 1024 x 768 인지 800 x 600 인지 알수 있나요 GetSystem...
-
에이스•2001.06.12 05:09Screen.??? ^^ Screen으로 검색해보세여.. 박태준 wrote: > 윈도우즈에서 화면 크기가 > 1024 x 768...
-
- 파이파이
- 2001.06.12 04:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 성호
- 2001.06.12 03:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 알고픈이
- 2001.06.12 02:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 신호
- •
- 2001.06.12 02:37
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.12 05:44안녕하세요. 최용일입니다. 아래포멧은 리치에디트에서 사용하는 RTF(Rich Text Format)이군요. 이게 리...
-
- 장훈이
- 2001.06.12 02:36
- 0 COMMENTS
- /
- 0 LIKES
-
- kaien
- •
- 2001.06.12 02:33
- 2 COMMENTS
- /
- 0 LIKES
-
kaien•2001.06.13 02:35아주 쉬웠습니다. INF 파일 자체를 다시 Cab으로 만든다음 서명 추가하면 되네요 참고하세요 kaien w...
-
mrsDelphi•2001.06.14 02:33저는 cab화일에 ocx와 inf 를 같이 묶었는데도 않되던대요? "INF 파일 자체를 다시 Cab으로 만든다음" 이...
정리 좀 해서 올리시면 보기가 훨씬 좋구 다른 분들도 답해 드렸을텐데.. 쩝..
> begin
> ClientDataSet1.FieldByName('b_SNO').asinteger := ClientDataSet1.RecNo;
> end;
> // ClientDataSet2.Next;
> // end;
> end;
대충보니 마이다스 하시는 것 같으신데여..
루프문 막으신게 정상적이라면 제가 보는 바는 같은 소스입니다.
루프문을 막지 않으셨다면
위에 ClientDataSet2.Next부분이 저기에 들어가야 되나여?
ClientDataSet1에 해당하는 Next는 없는데여..??
정상원 wrote:
> 수고많으십니다.
> 델파이초짜 정상원이라고 합니다.
> 다름이 아니고 아래와 같은 소스를 써서 현황화면에서 조회를 해보면 1번소스에는
> (주소와 전화번호등) 공란으로 나오는 컬럼이 있는데 2번 소스로 또다른 현황에서
> 조회를 해보면 모두 정상으로 나옵니다.
> 이유를 아시는 고수분들은 필히 연락(jsw7120@netian.com)이나 답변주시면 감사하겠습니다.
>
> 그럼 수고하세요..
>
> 1) procedure Twf_lidhc001100w.ClientDataSet1CalcFields(DataSet: TDataSet);
> var
> b_SNO : Integer;
> i : Integer;
> begin
>
> i := ClientDataSet1.RecordCount;
> //for j := 1 to i do begin
>
> if ClientDataSet1.RecNo = -1 then begin // ClientDataSet1을 맨처음은 -1로 시작
> ClientDataSet1.FieldByName('b_SNO').asinteger := 1
> end
> else
> begin
> ClientDataSet1.FieldByName('b_SNO').asinteger := ClientDataSet1.RecNo;
> end;
> // ClientDataSet2.Next;
> // end;
> end;
>
> 2) procedure Twf_lidhc001100w.ClientDataSet2CalcFields(DataSet: TDataSet);
> var
> b_SNO : Integer;
> i : Integer;
> begin
>
> i := ClientDataSet2.RecordCount;
> // for j := 1 to i do begin
>
> if ClientDataSet2.RecNo = -1 then begin // ClientDataSet2을 맨처음은 -1로 시작
> ClientDataSet2.FieldByName('b_SNO').asinteger := 1
> end else
> begin
> ClientDataSet2.FieldByName('b_SNO').asinteger := ClientDataSet2.RecNo;
> end;
> //ClientDataSet2.Next;
> //end;
> end;