| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3376 人关注过本帖
标题:VF运行一直显示 找不到别名”readpeople“,求解
只看楼主 加入收藏
dr2amy1
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-5-30
结帖率:0
收藏
已结贴  问题点数:20 回复次数:10 
VF运行一直显示 找不到别名”readpeople“,求解
Form1

读者信息查询界面

Combo1

读者编号

Command1

确定按钮

Text1



班级

Text2
姓名

Text3
学号

Text4
性别

Text5
权限

Text6
借阅情况

Command2

首记录

Command3

上一条记录

Command4

下一条记录

Command5

尾记录

Command6

修改

Command7

退出

Oleboundcontrol1

头像


Form1的init event代码:
thisform.text6.enabled=.F.

Command1的click event代码:
if select("readpeople")=0 &&检查数据表是否打开
messagebox("数据表readpeople不存在,请检查后再试!",0+16,"警告")
else
selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
go top
select readpeople &&选取account表
locate for allt()==allt(编号)
if found()
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.text6.value=q2
thisform.Oleboundcontrol1.refresh
endif
endif
&&(temp.学号)
skip
if eof()


else
skip -2
if bof()


else


endif
endif

Text1/2/3/4/5/6的rightclick event代码:
do 快捷菜单.MPR

Command2的click event代码:
go top
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
编号
thisform.Oleboundcontrol1.refresh
selec jieboos
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
go top
sele readpeople


Command3的click event代码:
if !bof()
skip -1
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.Oleboundcontrol1.refresh

编号
t=recno()

selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
sele readpeople
go t

if bof()

endif
endif

if eof()

else

endif

Command4的click event代码:
if !eof()
skip
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限

编号
thisform.Oleboundcontrol1.refresh
t=recno()

selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
sele readpeople
go t

else

endif


if bof()

else

endif

Command5的click event代码:
sele readpeople
go bottom
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.Oleboundcontrol1.refresh

编号

selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
go bottom
selec readpeople




Command6的click event代码:
t1=allt(thisform.Text1.value)
t2=allt(thisform.Text2.value)
t3=allt(thisform.Text3.value)
t4=allt(thisform.Text4.value)
t5=thisform.Text5.value

t9=allt()
if thisform.Text1.value!=" " and thisform.Text2.value!=" " and ;
thisform.Text3.value!=" " and thisform.Text4.value!=" "
messagebox("修改成功",0+48,"修改提示")
replace 班级 with t1,姓名 with t2,学号 with t3,姓别 with t4,权限 with t5 for t9=allt(readpeople.编号)
else
messagebox("不能有空",0+48,"修改提示")
endif

Command7的click event代码:
thisform.release

运行时一直显示 找不到别名“readpeople",求解


搜索更多相关主题的帖子: 记录 读者 Combo1 数据表 Text1 
2012-05-30 15:16
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:3 
上传表单及相关数据表文件

坚守VFP最后的阵地
2012-05-30 15:22
dr2amy1
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-5-30
收藏
得分:0 
什么意思?
2012-05-30 15:24
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用dr2amy1在2012-5-30 15:24:11的发言:

什么意思?
1楼的代码说明不了问题,只有看到表单上的全部设置后,才能知道问题所在。

坚守VFP最后的阵地
2012-05-30 15:29
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:3 
将表readpeople加入到表单的数据环境中试试。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-05-30 18:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
只有自己知道问题出在什么地方,别人是猜不出来的。

坚守VFP最后的阵地
2012-05-31 19:09
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:3 
readpeople?是不是reader啊?

授人以渔,不授人以鱼。
2012-05-31 19:51
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:3 
可能是表readpeople没打开吧。在程序中加入:
if !used("readpeople")
use readpeople in 0
endif
2012-06-01 04:43
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:3 
回复 8楼 sywzs
说的对
2012-06-01 07:39
arefeng
Rank: 2
等 级:论坛游民
帖 子:69
专家分:61
注 册:2012-5-30
收藏
得分:3 
8楼的判断是必然的, 提示信息已经明确指出是表没有打开
推荐方案:
    在数据环境(dataenvironment)中添加readpeople对应的表,并将alias属性设置为readpeople
备用方法:
    在load事件中加入8楼的代码作为参照, 但要注意表的位置(自由表\数据库中的表), 引用方法可能需要根据楼主的情况修改代码
其它注意事项:
    检查一下是不是在有些地方将本已经打开的表关掉了
2012-06-01 11:45
快速回复:VF运行一直显示 找不到别名”readpeople“,求解
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022004 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved