K1086
初階會員
發表:63 回覆:148 積分:42 註冊:2007-04-09
發送簡訊給我
|
[code delphi] - procedure TUP_ServiceFm1.SpBton2Click(Sender: TObject);
- var STDT,ENDT,SQL,Date_A,Date_B:string;
- TOT_K1,TOTALB,TOTALC,TOTALD:INTEGER;
- begin
- STDT:=COPY(DATETOSTR(SD1_Date.DATE),6,5) '/' COPY(DATETOSTR(SD1_Date.DATE),1,4);
- ENDT:=COPY(DATETOSTR(SD2_Date.DATE),6,5) '/' COPY(DATETOSTR(SD2_Date.DATE),1,4);
- Date_A:=COPY(DATETOSTR(SD1_Date.DATE),1,4) '/' COPY(DATETOSTR(SD1_Date.DATE),6,5);
- Date_B:=COPY(DATETOSTR(SD2_Date.DATE),1,4) '/' COPY(DATETOSTR(SD2_Date.DATE),6,5);
- SQL:='SELECT * FROM UP_ServiceData';
- SQL:=SQL ' WHERE 區間起>=''' STDT ''' AND ';
- SQL:=SQL ' 區間迄<=''' ENDT ''' ';
- UP_ServiceDisRptFm1.Query1.CLOSE;
- UP_ServiceDisRptFm1.Query1.SQL.Clear;
- UP_ServiceDisRptFm1.Query1.SQL.ADD(SQL);
- UP_ServiceDisRptFm1.Query1.OPEN;
- TOT_K1:=0;
- TOTALB:=0;
- TOTALC:=0;
- WHILE NOT UP_ServiceDisRptFm1.Query1.EOF DO
- BEGIN
- TOT_K1:= TOT_K1 STRTOINTDEF(UP_ServiceDisRptFm1.Query1.FIELDBYNAME('總額').AsString,0); UP_ServiceDisRptFm1.Query1.Next;
- END;
- UP_ServiceDisRptFm1.QRLab_D1.Caption :=(Date_A);
- UP_ServiceDisRptFm1.QRLab_D2.Caption :=(Date_B);
- UP_ServiceDisRptFm1.QRLab_ToT.Caption:=(FormatFloat('###,###',TOT_K1));
- UP_ServiceDisRptFm1.QuickRep1.Preview ;
- end;
[/code] 請問各位大大們,小弟在報表輸出列印時想要把 rbDetail 欄位單價 總價 秀出 有千位符號的格式,確無法達成 我有在 Mask #,##0 還是無法完全秀出 例如32,000 不知要如何修改程式 (註) 小弟建構 Table 單價 總價 是 Alpha
|