Q&A
- 엑셀로 전환시
화면에는 데이타베이스에서 가지고온 내용이 있고 그 내용을 엑셀에다가 뿌려주려고 합니다. 그런데 화면에 보여지는 내용만 보여지고 나머지의 자리에는 마지막 데이타내용이 반복되어서 나오는데 해결 방법이 없을까요?
엑셀 눌렀을 때 일어나는 부분 소스
TtsDBGrid(Form.Components[i]).CurrentDataRow := TtsDBGrid(Form.Components[i]).DataRownr[Row];
FieldValue := TtsDBGrid(Form.Components[i]).Cell[Cols, TtsDBGrid(Form.Components[i]).CurrentDataRow];
ExcelWorksheet1.Cells.Item[Row, Cols] := FieldValue;
엑셀 눌렀을 때 일어나는 부분 소스
TtsDBGrid(Form.Components[i]).CurrentDataRow := TtsDBGrid(Form.Components[i]).DataRownr[Row];
FieldValue := TtsDBGrid(Form.Components[i]).Cell[Cols, TtsDBGrid(Form.Components[i]).CurrentDataRow];
ExcelWorksheet1.Cells.Item[Row, Cols] := FieldValue;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김대훈
- •
- 2002.03.15 19:32
- 1 COMMENTS
- /
- 0 LIKES
-
술친구•2002.03.15 20:35Indy 도움말에 나와있네여.. procedure List(ADest: TStrings; const ASpecifier: string; const ADetai...
-
- 정말초보
- 2002.03.15 19:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승준
- 2002.03.15 19:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 오경태
- •
- 2002.03.15 19:20
- 2 COMMENTS
- /
- 0 LIKES
-
염상철•2002.03.16 00:57이렇게 해보는 건 어떠신지여.. 버튼클릭 이벤트에.... with Qry_select do begin ...
-
머슴•2002.03.15 20:54현재 주민번호Check모듈에 관한 소스를 가지고 계시면 가장 쉽게는 그 소스를 button 이벤트중...
-
- 김기욱
- 2002.03.15 19:09
- 0 COMMENTS
- /
- 0 LIKES
-
-
머슴•2002.03.15 20:51ViewSource에서 빈 유닛이 먼저 선언되어 있는지를 확인해보세요... &nbs...
-
-
-
- 정경철
- •
- 2002.03.15 12:10
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2002.03.15 18:07제가 게을러서....^^ 비슷한 소스가 있으니깐 수정해서 사용하면 될것같네요... procedure TForm1.BitBtn...
-
- 신주호
- 2002.03.15 09:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 최석우
- •
- 2002.03.15 08:17
- 4 COMMENTS
- /
- 0 LIKES
-
장명선•2002.03.15 20:39and 문장을 앞으로 해보세여 그럼 더 편해여 즉 for i := 1 to 10 do begin &nbs...
-
공성환•2002.03.15 18:12다 맹근다음 짤라내도 되겠지만... for문을 1바퀴덜돌리고 맨마지막을 그냥 써주면 어떨까요? 다이나믹 s...
-
나두초보!!•2002.03.15 10:31문장의 길이를 받아와.. 마지막 3자리만 빼면 되겠군여.. var i : integer; ...
-
이은정•2002.03.15 22:37var selcode : string; 일경우 delete함수를 쓰면 원하는 자릿수만큼 짤라낼수 있습니다. &...
-
- 김재오
- 2002.03.15 07:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- •
- 2002.03.15 05:10
- 1 COMMENTS
- /
- 0 LIKES
-
김강수•2002.03.15 11:42TTABLE 에서 이벤트 AfterOpen 에 DisplayFormat을 이용하시면 됩니다. 그러면 해당 필드 Open 후에는 계...
-
- 주재홍
- •
- 2002.03.15 04:53
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2002.03.28 12:23EnumWindowsProc이라는 API를 사용하시면 되구요, 자세한 예제는 제가 예전에 자료실에 올린 소스를 보시...
-
홍성락•2002.03.15 23:33////////////////////////////////////////////////////////////////////// 예전에 MiTeC인지는 잘모르지...
-
- 박동호
- •
- 2002.03.15 04:36
- 1 COMMENTS
- /
- 0 LIKES
화면에는 데이타베이스에서 가지고온 내용이 있고 그 내용을 엑셀에다가 뿌려주려고 합니다. 그런데 화면에 보여지는 내용만 보여지고 나머지의 자리에는 마지막 데이타내용이 반복되어서 나오는데 해결 방법이 없을까요? 엑셀 눌렀을 때 ...-
김경록•2002.03.15 05:08필드의 내용을 가져오실때, 어떤 필드의 내용을 기준으로 가져오셨나하구 생각해 보세여.. 님은 그 대상...
-
- 티모니
- •
- 2002.03.15 04:29
- 1 COMMENTS
- /
- 0 LIKES
-
Mr. Ziker•2002.03.16 09:46안녕하세욤 자료실에 acm 컴포넌트 관련해서 올라온 자료들을 찾아보시면 됩니다. 소스도 잇었던걸...
-
-
장지용•2002.03.15 22:48간단하게 만들어서 보내겠습니다. 표준 코딩이 아니니까 그냥 참고만 하세요. 등록부분에 보시면 Tab...
-
-
- 어린왕자A
- •
- 2002.03.15 03:25
- 2 COMMENTS
- /
- 0 LIKES
-
나두초보!!•2002.03.15 11:09ㅡㅡ; 저기 꽁수인데여.. drawgrid1.ColWidths[i]의 값을 폼이 생성될때 가지고 있다가.. 마우스가 u...
-
어린왕자A•2002.03.15 21:44리사이징이 되자마자 이벤트가 떴어야만 하는데.. ColumnReSizing...
-
- 이명훈
- 2002.03.15 03:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재봉
- 2002.03.15 03:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 델.초
- •
- 2002.03.15 03:08
- 1 COMMENTS
- /
- 0 LIKES
-
김경록•2002.03.15 04:24이부분 있져? 이게 프로그램 실행시키는 곳이랍니다.. 실제로 이것에 의해 실행됩니다. 프로그램이 실행...
생각해 보세여..
님은 그 대상이 DBGrid이군여..
Dataset기준으로 가져와 보세여..
Dataset(Query, Table 컴포넌트)의 Fields[] 에 있는 갯수와
DBGrid의 필드갯수가 다르다면,
뭔가 출력될때 잘못되겠져? DBGrid 기준으로 출력한다면?
제가 코딩할때에는 이렇게 코딩을 합니다.
저는 DBGrid에 있는 해당 Record의 Field가 가지는
실제 Dataset의 Field명을 가져와서..
Dataset의 Field명에 있는 실제 Data값을 가져옵니다..
음.. 예제가 어디 있을텐데..
찾아봐야겠군여..
찾았네여.. 좀 시간 걸렸지만..
도움되었으면 하네여..
뭐 이런식으로 사용했읍니다.
당연히
Loop를 돌면서 했겠져?
DataSet의 FieldCount나 DBGrid의 FieldCount를 가지고요..
만약, DBGrid의 FieldCount를 가지고 Loop를 돌린다면,
당연히, DataSet의 Field갯수와 DBGrid의 필수 갯수가 틀리다면,
DBGrid의 필드갯수데로 나타나겠져?
꺼구로 해도 마찬가지겠구여..
그러니까, 먼저 어떤걸 기준으로 돌릴지는 님이 생각해보시는게 ^^;
어쨌는 저는 아래 방법으로 코딩이 가능합니다.
이것은 물론, 실제 업무에 사용한 방법입니다.
답이 되었을런지 모르겠네여..
aq_Query.FieldByName(ag_Grid.Fields[j-1].FieldName).DisplayText
aq_Query.FieldByName(ag_Grid.Fields[j-1].FieldName).AsFloat
최강의 프로그래머를 위하여~~~