现有两个表:汽车(牌号,型号,生产厂,车主名)
车主(车主名,地址,电话)
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
都与相应数据源建立联系.
可是运行时总是读不出 ( 车主.地址)和(车主.电话)两项 翻页对这两项没用. 大家帮我看看问题出在哪? 先谢谢咯!拜托 小弟给你泡茶哦!
[求助]如何写Text的valid代码