某表单上有两个命令按钮Command1和Command2。要求:(1)若单击Command1命令按钮,程序将当前表的记录指针上移一位,并刷新表单中所有的值;其中,若指针已处于文件的首记录,则将其自身(Command1命令按钮)设置为不能被激活状态。(2)若

admin2010-06-18  28

问题 某表单上有两个命令按钮Command1和Command2。要求:(1)若单击Command1命令按钮,程序将当前表的记录指针上移一位,并刷新表单中所有的值;其中,若指针已处于文件的首记录,则将其自身(Command1命令按钮)设置为不能被激活状态。(2)若单击Command2命令按钮,程序将当前表的记录指针下移一位,并刷新表单中所有的值;其中,若指针已处于文件的末记录,则将其自身(Command2命令按钮)设置为不能被激活状态。

选项

答案编写CommaNd1的Click事件代码如下: ThisForm. Command2. Enabled= .T. SKIP —1 IF BOF() GO TOP This. Enabled=.F. ENDIF ThisForm. Refresh Command2的Click事件代码如下: ThisForm. Command1. Enabled. =.T. SKIP IF EOF() GO BOTTOM This. Enabled=.F. ENDIF ThisForm. Refres

解析
转载请注明原文地址:https://kaotiyun.com/show/tthZ777K
0

最新回复(0)