如何让用vf查询2个dbf文件中相同字段?
答案:2 悬赏:0 手机版
解决时间 2021-01-29 09:21
- 提问者网友:回忆在搜索
- 2021-01-28 23:38
有个内容为全部的供应物品价格dbf文件,比如有上万种物品的单价,字段mc表示物品名称,jg表示物品单价,另一个是需要填物品价格dbf文件,大概需要填500种物品的单价,字段mc表示物品名称,jg表示物品单价(空着待填),用什么命令就可以一下子查到全部需要填的单价。
最佳答案
- 五星知识达人网友:思契十里
- 2021-01-29 00:47
编写一段程序还是挺快的
use 需要填物品价格.dbf
stor recc() to jls
jlh=1
do whil jlh<=jls
clos data
use 需要填物品价格.dbf
go jlh
stor allt(mc) to wpmc
use 全部的供应物品价格.dbf
loca for mc=wpmc
if found()
stor jg to wpjg
clos data
use 需要填物品价格.dbf
go jlh
repl jg with wpjg
endi
jlh=jlh+1
endd
use 需要填物品价格.dbf
stor recc() to jls
jlh=1
do whil jlh<=jls
clos data
use 需要填物品价格.dbf
go jlh
stor allt(mc) to wpmc
use 全部的供应物品价格.dbf
loca for mc=wpmc
if found()
stor jg to wpjg
clos data
use 需要填物品价格.dbf
go jlh
repl jg with wpjg
endi
jlh=jlh+1
endd
全部回答
- 1楼网友:低血压的长颈鹿
- 2021-01-29 01:25
我理解“任意3个字段”,应该表述为:至少3个字段。
use <xx表> alias abc
copy stru to 临时表
go top
do while not eof()
j=0
for i=1 to 10
s=fields(i)
if &s<50
j=j+1
endif
if j>=3
exit
endif
endfor
if j>=3
scatt memv
insert into 临时表 from memv
endif
select abc
skip
enddo
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯