关于中止表单初始化--想破了脑袋实在没招了

[bom33]

我想通过一个参数x 来控制一个表单是否要运行
我的入口是do form f1
f1的init里加了下面的代码:
if x<>1
中止,退出
endif

换了多个思路发现f1是必须要执行完init,中间不可能释放表单

[lc_apple]

在
do form f1
之前把x声明成public的，根据条件赋值给X

然后把判断代码放在表单load事件里

if x<>1
clear events
quit
endif

[lygcw9602]

表单LOAD事件中：
QUIT

[bom33]

[Quote=引用 1 楼 lc_apple 的回复:]
在
do form f1
之前把x声明成public的，根据条件赋值给X

然后把判断代码放在表单load事件里

if x<>1
clear events
quit
endif
[/Quote]

你好 我是想退出表单 而不是退出系统

[bom33]

[Quote=引用 2 楼 lygcw9602 的回复:]
表单LOAD事件中：
QUIT
[/Quote]
你好 我是想退出表单 而非系统

[bom33]

这个问题 我刚刚用另一种方法解决了
谢谢各位

[lygcw9602]

[Quote=引用 5 楼 bom33 的回复:]
这个问题 我刚刚用另一种方法解决了
谢谢各位
[/Quote]
共享一下啊

[bom33]

[Quote=引用 6 楼 lygcw9602 的回复:]
引用 5 楼 bom33 的回复:
这个问题 我刚刚用另一种方法解决了
谢谢各位

共享一下啊
[/Quote]

你另开个贴吧 不能给自己分

[bom33]

我现在有两种方法解决这个问题
简单地说 ,一种是表单集的方法 一种是使用两个表单 +一个额外参数 这个怎么说呢 说得太细也讲不明白 如果你遇上了这种问题 我再给你细细说一下...

[lygcw9602]

[Quote=引用 7 楼 bom33 的回复:]
引用 6 楼 lygcw9602 的回复:
引用 5 楼 bom33 的回复:
这个问题 我刚刚用另一种方法解决了
谢谢各位

共享一下啊


你另开个贴吧 不能给自己分
[/Quote]
实际应用中没有价值

[十豆三]

在表单的 Load 事件写代码：

If 全局变量<>1
    Return .F.
Endif

[bom33]

[Quote=引用 9 楼 lygcw9602 的回复:]
引用 7 楼 bom33 的回复:
引用 6 楼 lygcw9602 的回复:
引用 5 楼 bom33 的回复:
这个问题 我刚刚用另一种方法解决了
谢谢各位

共享一下啊


你另开个贴吧 不能给自己分

实际应用中没有价值
[/Quote]
这位道友不要乱说啊

[bom33]

[Quote=引用 10 楼 apple_8180 的回复:]
在表单的 Load 事件写代码：

SQL code
If 全局变量<>1
Return .F.
Endif
[/Quote]
感谢十豆三 每次都能从你这儿得到答案
这种方法应该是效率最高的~