| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1068 人关注过本帖
标题:[求助]如何写Text的valid代码
只看楼主 加入收藏
jxzjfzjf
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-10
收藏
 问题点数:0 回复次数:3 
[求助]如何写Text的valid代码

现有两个表:汽车(牌号,型号,生产厂,车主名)
车主(车主名,地址,电话)
FORM1中有5个文本框(分别显示牌号,型号,生产厂,车主名,地址,电话)
TXT车主名 valid的代码如下
SELE 车主
LOCA FOR 车主名=汽车.车主名
IF NOT FOUND()
INSERT INTO 车主(车主名) VALUES (汽车.车主名)
ENDIF
另有按钮组 COMMANDGROUP1的CLICK的代码具体如下
SELE 汽车
DO CASE
CASE THIS.VALUE=1
GO TOP
THIS.COMMAND1.ENABLED=.F.
THIS.COMMAND2.ENABLED=.F.
THIS.COMMAND3.ENABLED=.T.
THIS.COMMAND4.ENABLED=.T.
CASE THIS.VALUE=2
IF RECN()>1
SKIP -1
IF BOF()
THIS.COMMAND1.ENABLED=.F.
THIS.COMMAND2.ENABLED=.F.
ENDIF
THIS.COMMAND3.ENABLED=.T.
THIS.COMMAND4.ENABLED=.T.
ENDIF
CASE THIS.VALUE=3
IF RECN()<RECC()
SKIP
IF EOF()
THIS.COMMAND3.ENABLED=.F.
THIS.COMMAND4.ENABLED=.F.
ENDIF
THIS.COMMAND1.ENABLED=.T.
THIS.COMMAND2.ENABLED=.T.
ENDIF
CASE THIS.VALUE=4
GO BOTT
THIS.COMMAND1.ENABLED=.T.
THIS.COMMAND2.ENABLED=.T.
THIS.COMMAND3.ENABLED=.F.
THIS.COMMAND4.ENABLED=.F.
CASE THIS.VALUE=5
THISFORM.RELEASE
ENDC
THISFORM.REFRESH

都与相应数据源建立联系.
可是运行时总是读不出 ( 车主.地址)和(车主.电话)两项  翻页对这两项没用. 大家帮我看看问题出在哪?  先谢谢咯!拜托 小弟给你泡茶哦!

搜索更多相关主题的帖子: 车主 valid Text 代码 汽车 
2006-03-17 12:28
jxzjfzjf
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-10
收藏
得分:0 

哦,心急,写错了!是6个文本框,不是5个! 高手是一眼就看出来的!哈哈

2006-03-17 12:31
cloudz
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-17
收藏
得分:0 

我也遇到了,“SELE 汽车”改成一个两个表组成的视图。翻页就可以了,但是寻页还是不行,也请高手帮忙!

2006-03-18 16:03
jxzjfzjf
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-10
收藏
得分:0 
如改成视图的话,插入记录也不行,因为是对视图进行操作.是吧?
2006-03-19 11:17
快速回复:[求助]如何写Text的valid代码
数据加载中...
 
   



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

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