vfp里表单表格中删除一条记录和浏览怎么做(编码)
确认里的代码:use通讯录deletefor姓名="thisform.text1.value"packmessagebox("删除联系人成功!")thisform.ref...
确认里的代码:
use 通讯录delete for 姓名="thisform.text1.value" pack messagebox("删除联系人成功!")thisform.refresh
可是删不掉(要删除一列记录)
浏览的
浏览上一个,下一个,最后一个,第一个什么的,这个完全没头绪啊!
求大神指导 展开
use 通讯录delete for 姓名="thisform.text1.value" pack messagebox("删除联系人成功!")thisform.refresh
可是删不掉(要删除一列记录)
浏览的
浏览上一个,下一个,最后一个,第一个什么的,这个完全没头绪啊!
求大神指导 展开
展开全部
把delete for 姓名笑弊咐="thisform.text1.value"这句的引号去掉碰纯。
在pack之卜喊后加上thisform.grd通讯录.recordsource="通讯录"就可以了。
在pack之卜喊后加上thisform.grd通讯录.recordsource="通讯录"就可以了。
追问
运行之后删不掉
第二次运行的时候提示文件正被使用,而且临时表白了
追答
不用USE打开表,用SELE就好了。
sele 通讯录
delete for 姓名=thisform.text1.value
pack
thisform.grd通讯录.recordsource="通讯录"
messagebox("删除联系人成功!")
thisform.refresh
展开全部
第一题:
delete for alltrim(姓名)=alltrim(thisform.text1.value)
pack
thisform.grid1.recordsource="通讯录"纯粗
第二题:
上一个:
if recno()>1
skip -1
else
go top
endif
thisform.refresh
下一悄裂个:
if recno()<reccount()
skip 1
else
go bottom
endif
thisform.refresh
最后一个做运镇:
go bottom
thisform.refresh
第一个:
go top
thisform.refresh
delete for alltrim(姓名)=alltrim(thisform.text1.value)
pack
thisform.grid1.recordsource="通讯录"纯粗
第二题:
上一个:
if recno()>1
skip -1
else
go top
endif
thisform.refresh
下一悄裂个:
if recno()<reccount()
skip 1
else
go bottom
endif
thisform.refresh
最后一个做运镇:
go bottom
thisform.refresh
第一个:
go top
thisform.refresh
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询