안녕하십니까? 고수님들의 가르침을 받고자 합니다.



디비그리드에서 날짜별로 입력한 자료를 스트링그리드에서 달력형식으로 뿌려주는 데요..

예를들면 6월23일 일정이 2개 이상일때는 어떻게 처리해야 하는지요?

6월23일 일정이 3개라면... 맨뒤의 일정만 나옵니다....(--;)

------------------------------------------------------------------

wwTable1.First;

Under := 1;

While Not wwTable1.Eof Do

Begin

Man := wwTable1.FieldByName('NAME').AsString;

wwQuery1.First;

While Not wwQuery1.Eof Do

Begin

If Man = wwQuery1.FieldByName('JPMAN').AsString Then

Begin

Dat := FormatDateTime('dd',StrToDate(wwQuery1.FieldByName ('DUE_DATE').AsString));

Right := StrToInt(Dat);

//요기가 해당날짜에 자료를 넣는 곳이거든요.....자꾸 덮어쓰기가 되네요...

Sgrid1.Cells[Right,Under] := wwQuery1.FieldByName('BIGO').AsString

+'/'+wwQuery1.FieldByName('OURREF').AsString

+'/'+wwQuery1.FieldByName('PMAN').AsString

+'/'+wwQuery1.FieldByName('PAGE').AsString+'P';

End;

wwQuery1.Next;

End;

Sgrid1.Cells[0,Under] := Man;

Under := Under+1;

wwTable1.Next;

End;

----------------------------------------------------------------------------------