不是源表,原表是TMP_CASH,我写在TMP_CASH2,多了个2的。
我看了,你们说用SCAN,,怎么用啊,我只会用FOR.
我看了,你们说用SCAN,,怎么用啊,我只会用FOR.
程序代码:clear all
Set Collate To "MACHINE"
select 0
use 表a
total to hzb on 编号 fields 费用1,费用2,费用3 for 参加=.T.
select 0
use hzb
if type("内容")="U"
alter table hzb add 内容 M
endif
index on 编号 to bh
select 表a
set relation to 编号 into hzb
scan
replace hzb.内容 with hzb.内容-","-dtoc(表a.日期)
endscan
set relation to
select hzb
set index to
replace all 内容 with substr(内容,2)
* 显示结果
browse
