VFP 愛用者社區

[fancy]

我是一個新手
我要資料抓出來做統計報表
第一條件日期一定要輸入這邊都ok
但是在整個產品加總金額這邊卻無法加總放進暫存檔
我最後答案要產生一張報表
請各位先進指點一下
我程式碼如下
Local S1_Date,S2_Date,S3_Date,S_CustNo,E_CustNo,S_EmpNo,E_EmpNo,S_ItemNo,E_ItemNo
Public t_OrgAlias,t_OrgOrder
t_OrgOrder = order()
t_OrgAlias = alias()
WITH THIS.PARENT
*判斷日期輸入
IF EMPTY(.S1_Date.VALUE)
L_MsgBox('銷售年月一不可為空白,請確定......')
.S1_Date.SETFOCUS
RETU
ENDIF
*
IF EMPTY(.S2_Date.VALUE)
L_MsgBox('銷售年月二不可為空白,請確定......')
.S2_Date.SETFOCUS
RETU
ENDIF
*
IF EMPTY(.S3_Date.VALUE)
L_MsgBox('銷售年月三不可為空白,請確定......')
.S3_Date.SETFOCUS
RETU
ENDIF
*
********************************************************
This.Comment = 'SALTEMP'+UserID+sys(2015)
CREATE CURSOR (This.Comment);
(SNo C(12),;
Date1 C(S_TLen),;
ItemNo C(20),;
ItemName C(30),;
CustNo C(8 ),;
CustAbbr C(10),;
EmpNo C(8 ),;
EmpName C(10),;
Qty N(12,A_DecQty),;
Total N(12,A_DecTotal),;
A01 N(12),;
A02 N(12),;
A03 N(12),;
BilKind C(4))
index on ItemNo+Date1 tag saltemp1 for !dele()
*
sele &t_OrgAlias
D1 = ThisForm.S1_Date.VALUE
D2 = ThisForm.S2_Date.VALUE
D3 = ThisForm.S3_Date.VALUE
C1 = ThisForm.S_CustNo.VALUE
C2 = ThisForm.E_CustNo.VALUE
E1 = ThisForm.S_EmpNo.VALUE
E2 = ThisForm.E_EmpNo.VALUE
I1 = ThisForm.S_ItemNo.VALUE
I2 = ThisForm.E_ItemNo.VALUE
t_total = LEFT(Saldet.date1,5)
SCAN
DO CASE
case date1=D1 OR date1=D2 OR date1=D3
sele (This.Comment)
append blank
repl SNo with &t_OrgAlias..SNo
repl Date1 with LEFT(&t_OrgAlias..Date1,5)
repl ItemNo with &t_OrgAlias..ItemNo
repl ItemName with &t_OrgAlias..ItemName
repl CustNo with &t_OrgAlias..CustNo
repl CustAbbr with &t_OrgAlias..CustAbbr
repl EmpNo with &t_OrgAlias..EmpNo
repl EmpName with &t_OrgAlias..EmpName
repl Qty with &t_OrgAlias..Qty
repl Total with &t_OrgAlias..Total
repl BilKind with &t_OrgAlias..BilKind
ENDCASE
*
Do CASE
case d1=LEFT(&t_OrgAlias..Date1,5)
repl A01 with A01+Total
case d2=LEFT(&t_OrgAlias..Date1,5)
repl A02 with A02+Total
case d3=LEFT(&t_OrgAlias..Date1,5)
repl A03 with A03+Total
ENDCASE
*
ENDSCAN
sele (This.Comment)
ENDWITH
SELE &t_OrgAlias

go bottom
S_EndNo = recno()

[garfield]

依你這種方式來做加法運算,
不可以每次皆用
sele (This.Comment)
append blank
來增加一筆空白資料,
應先找看看有無相同itemno, 如果找不到相同編號時再新增一筆.