VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

标题：VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

只看楼主

dengxsh

等　级：论坛游民
帖　子：87
专家分：40
注　册：2013-2-26
结帖率：73.68%

楼主

已结贴√ 问题点数：30 回复次数：6

VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

VFP增删查改操作.zip (14.95 KB)

我自己根据需要做了一个学生信息管理操作程序，但总是在点击添加、修改、浏览按钮时卡住不动？请求高手们帮助！

搜索更多相关主题的帖子: 按钮　

2013-05-15 13:59

kiff

来　自：广州
等　级：贵宾
威　望：46
帖　子：756
专家分：2531
注　册：2013-1-30

第 2 楼

得分:20

*!*        pictemp=Thisform.image1.Picture
*!*        j=0
*!*        Do While .T.
*!*            j=j+1
*!*            If Left(Right(pictemp,j),1)=="\"
*!*                Exit
*!*            Endif
*!*        Enddo

*!*        fielname="photo" + Right(pictemp,j)
以上代码会遇到死循环.可用以下这句代替
fielname=IIF(EMPTY(Thisform.image1.Picture),'',"photo\" + Justfname(Thisform.image1.Picture))
---------------------------
在 "粘贴照片"，同样有这问题，可能这样修改。

pictemp=getpict("bmp;jpg","选择照片","导入")
if EMPTY(pictemp)
    return
endif
fielname='photo\'+Justfname(pictemp)
COPY FILE (pictemp) TO (fielname)
thisform.image1.picture=fielname

[ 本帖最后由 kiff 于 2013-5-15 16:21 编辑 ]

2013-05-15 15:33

dengxsh

等　级：论坛游民
帖　子：87
专家分：40
注　册：2013-2-26

第 3 楼

得分:0

回复 2楼 kiff

非常谢谢版主。
请问照片怎么加不进去啊！烦请指点一下！

2013-05-15 16:51

kiff

来　自：广州
等　级：贵宾
威　望：46
帖　子：756
专家分：2531
注　册：2013-1-30

第 4 楼

得分:0