请教怎么优化速度 谢谢

[adyyadyy]

请教怎样优化下面的代码
现在1分钟运行不到100条
共有8万多条--!!!
另请问:有没有SQL查询分组后,合并非数值型字段的方法?

nxjh=''
Select * FROM k2 INTO CURSOR fk2 READWRITE
Select * FROM k2 INTO CURSOR fk3 READWRITE
Select fk2
DO WHILE !EOF()
locat for EMPTY(ALLTRIM(系统归属))
DO while FOUND()
nxh=ALLTRIM(新号)
Select gsk
locat For ALLTRIM(新号)=nxh
DO while FOUND()
nxjh=nxjh+ALLTRIM(新旧号)+','
continue
enddo
Select fk3
REPLACE 系统归属 WITH nxjh FOR ALLTRIM(新号)=nxh all
nxjh=''
Select fk2
continue
enddo
ENDDO

[adyyadyy]

谢谢
不知这样能说清不--!!!
表a 表b
将表a中 新号 相同的记录的 备注 合并
重写表b中与表a中 新号 相同的记录的 备注 字段

贴中的代码就是完成这个事情的

[wwwwb]

用用SQL+UDF的方法解决，备注什么类型？

[wwwwb]

vfp9:
select 新号,hb(新号) as xh into curs dd from a group by 新号 nofi

update b from dd set b.备注=dd.xh where b.新号=dd.新号

function hb(dd)
select 备注 from a where 新号=dd
gg=''
scan
gg=gg+备注
endsc
retu gg
endfun

[adyyadyy]

备注是字符型

SQL+UDF是什么?

[wwwwb]

SQL语句+自定义函数，如4楼代码

[adyyadyy]

select 新号,hb(新号) as xh into curs dd from a group by 新号 nofi

update b from dd set b.备注=dd.xh where b.新号=dd.新号

function hb(dd)
select 备注 from a where 新号=dd
gg=''
scan
gg=gg+备注
endsc
retu gg
endfun

级别太低看不懂啊--!!!!!!!!

[adyyadyy]

我试试 谢谢

[wwwwb]

看看VFP的HELP吧

[adyyadyy]

还是不会用啊
还有没有适合初级级别的速度快点方法?

[wwwwb]

没有，多动手做做才行
上传你的dbf到
www.access911.net/csdn
只要有问题的，用WINRAR压缩

[xilaianzxsc]

程序优化是个学问,可以大大提高运行的速度

[xilaianzxsc]

VFP 9.0 快

[adyyadyy]

[Quote=引用 4 楼 wwwwb 的回复:]
vfp9:
select 新号,hb(新号) as xh into curs dd from a group by 新号 nofi

update b from dd set b.备注=dd.xh where b.新号=dd.新号

function hb(dd)
select 备注 from a where 新号=dd
gg=''
scan
gg=gg+备注
endsc
r……
[/Quote]
按如上改成:
select 新号,hb(新号) as xh into curs dd from gsk group by 新号 nofi

update k2 from dd set k2.备注=dd.xh where b.新号=dd.新号

function hb(dd)
select 备注 from gsk where 新号=dd
gg=''
scan
gg=gg+备注
endsc
retu gg
endfun
运行时每查询一条出现一个查询对话框,还得请教怎么能不显示查询对话框?

[十豆三]

select 备注 from gsk where 新号=dd

改为

select 备注 into cursor t1 from gsk where 新号=dd

[我是小数位]

[Quote=引用楼主 adyyadyy 的回复:]
请教怎样优化下面的代码
现在1分钟运行不到100条
共有8万多条--!!!
另请问:有没有SQL查询分组后,合并非数值型字段的方法?

nxjh=''
Select * FROM k2 INTO CURSOR fk2 READWRITE
Select * FROM k2 INTO CURSOR fk3 READWRITE
Select fk2
DO WHILE !EOF()……
[/Quote]我估計80%的時間都在這裡句上面消耗了！建議添加索引，用SEEK語句，一定會快1半以上！

[我是小数位]

[Quote=引用 23 楼 apple_8180 的回复:]
select 备注 from gsk where 新号=dd

改为

select 备注 into cursor t1 from gsk where 新号=dd
[/Quote]修改LOCATE FOR 語句為SEEK，在程序中堅決不要用LOCATE FOR

[adyyadyy]

上传了dbf,怎么没下文了? -_-!!

[adyyadyy]

[Quote=引用 28 楼 apple_8180 的回复:]
VFP9.0 以下代码1-2秒

SQL code
Select Distinct 新号,新旧号 Into Cursor fgsk From gsk Order By 新号
Update k2 Set k2.系统归属=Rtrim(k2.系统归属)+Rtrim(fgsk.新旧号)+',' from fgsk Where Rtrim(k2.新号)==Rtrim(fgsk.新号)
[/Quote]
严重感谢楼上各位,狠严重感谢十豆三老师!

[lc_apple]

[Quote=引用 26 楼 adyyadyy 的回复:]
上传了dbf,怎么没下文了? -_-!!
[/Quote]
你的理想速度是多快？？
其实十三豆给你的那个已经很快了！

[十豆三]

VFP9.0 以下代码1-2秒

Select Distinct 新号,新旧号 Into Cursor fgsk From gsk Order By 新号
Update k2 Set k2.系统归属=Rtrim(k2.系统归属)+Rtrim(fgsk.新旧号)+',' from fgsk Where Rtrim(k2.新号)==Rtrim(fgsk.新号)