诚向各位大侠请教

[5310501]

有一表PYK.DBF 字段1：HZ 字段2：PY
例 啊 A
山 S
. .
. .
另一表HZK.DBF 字段1：HZ 字段2：PY
例 济南市 JNS
山东省 SDS
请各位高手帮助怎样编写一段程序，或使用表单由表一来生成表二
我的邮件是:[e-mail]
谢谢！

[fj_jiangqi]

首先在pyk.dbf要建一个索引：index on hz to tag hz

file:hztopy
parameters hzstr
pystr=""
set order to tag hz in pyk
for i=1 to lenc(hzstr)
g=substrc(hzstr,i,1)
if seek(g,'pyk')
pystr=pystr+pyk.py
else
pystr=pystr+" "
endif
endfor
return pystr

replace all py with hztopy(alltrim(hz)) in hzk
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊