아래의 코딩은 Cells[05,row]에 숫자를 입력하면 천단위 일경우
Cells[05, Row] := FormatFloat('#,##0.##',RemoveComa(Cells[05, Row]));
코딩에 의해서 콤마를 생성해서 보여줘라는 코딩입니다.
그러나 05,row 에는 3000을 입력시 그래도 3000 이 나타납니다.
아래의 문장은 입력받은 값에서 콤마를 없애고 숫자 타입으로 산술계산을 해서 다시 8,row 에 넣어라는
문장입니다.
advsg_ord_mpsp.refresh 해도 안되네요 ! 도와주세요...아 속상합니다.
Cells[8, Row] := FormatFloat('#,##0.##',(RemoveComa(Cells[01, Row])-RemoveComa(Cells[05, Row])));
procedure TFordr.AdvSG_ord_mpspCellsChanged(Sender: TObject; R: TRect);
begin
With AdvSG_ord_mpsp do begin
if (NumBoolean(Cells[01, Row]) = True) and (NumBoolean(Cells[05, Row]) = True)
then begin
Cells[05, Row] := FormatFloat('#,##0.##',RemoveComa(Cells[05, Row]));
Cells[8, Row] := FormatFloat('#,##0.##',(RemoveComa(Cells[01, Row])-RemoveComa
(Cells[05, Row])));
end
else begin
Application.MessageBox('숫자를 입력해 주세요 !','SungIl ERP System');
Exit;
end;
end;
end;
당연히 Row 값이 있다고 보면, 소스에는 이상이 없는 것 같은데요.. 혹시 이벤트 발생이 안되는건 아닐까요?
버튼을 하나 생성해서 클릭 이벤트에서 실행해보심이 어떠실런지요..
그리고 혹시, Row는 현재 선택되어 있는 행번호 아닌가요?
허접한 답변이었습니다. ㅡㅡ;;; 후다닥~~===3