编程论坛 » VFP论坛 » VFP求助!!十万火急!!!

lyq61512 发表于 2008-5-5 08:55

VFP求助!!十万火急!!!

在表格grid之中物理删除选定记录之后,该grid表格显示白板(没有表格,也没有记录),这个是怎么回事啊???
我的代码如下:
use 采购信息 exclusive
nhere=recno()
delete
PACK
thisform.grid1.Refresh
请高手指点!

Tiger5392 发表于 2008-5-5 09:14

ThisForm.Grid1.RecordSource=''
Delete
Pack
ThisForm.Grid1.RecordSource='采购信息'

hu9jj 发表于 2008-5-5 21:01

也可以将删除的命令另外写在程序中，在表单中调用这个程序，就不会引起表格空白了。

zppjk 发表于 2008-6-20 16:16

求高手相帮

IF val(skh1)>val(skh2)
                stmp=skh1
                skh1=skh2
                skh2=stmp
        ENDIF
        stmp='54158632'
        skha=str(evaluate(skh1)+evaluate(stmp),8)
        skha=strtran(skha,' ','0')
        stmp='48765213'
        skhb=str(evaluate(skh2)+evaluate(stmp),8)
        skhb=strtran(skhb,' ','0')
        stmp=''
        nmod=asc('9')
        FOR i=1 to 8
                ntmp=(asc(substr(skha,i,1)))
                FOR j=1 to 8
                        ntmp=ntmp+(asc(substr(skhb,j,1)))
                ENDFOR
                ntmp=asc('0')+mod(mod(ntmp,nmod),10)
                nmod=ntmp
                stmp=stmp+chr(ntmp)
        ENDFOR
        IF szch=stmp
                CREATE cursor registtmp(skh c(8),ekh c(8),zch c(8))
                sfile=home()+'sfsys.ini'
                IF file(sfile)
                        APPEND from (sfile) sdf
                ENDIF
                LOCAL zchtmp(1)
                SELECT zch from registtmp where skh==skh1 and ekh==skh2 into array zchtmp
                IF _tally>0
                        UPDATE registtmp set zch=stmp where skh==skh1 and ekh==skh2
                ELSE
                        INSERT into registtmp (skh,ekh,zch) values (skh1,skh2,stmp)
                ENDIF
                SELE registtmp
                COPY to (sfile) fields skh,ekh,zch sdf
                MESSAGEBOX('添加成功',48,'提示信息')
        ENDIF
ENDWITH

查看完整版本: VFP求助!!十万火急!!!