如何关掉query的计算字段的自动计算事件(50分)

H

hamang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-02

• #1

如何关掉query的计算字段的自动计算事件
autocalcfields:=false仍然会触发onCalcfileds事件
我想屏蔽掉OnCalcFields事件中的代码！！请赐教，QQQ

 

Z

zhanggeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-02

• #2

采用技巧变通一下就行了：
在onCalcfileds中第一行:
if query1.tag=1 then exit;
这样子想关掉计算就设置tag为1，打开就设置为0。

 

S

skyweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #3

把OnCalcFields事件指针设为空就可以了，需要的时候再挂上去。
例：
if I_want_CalcFields then
MyQuery1.OnCalcFields:=MyCalcFieldsEventProc
else
MyQuery1.OnCalcFields:=nil;

 

A

andriy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #4

支持skyweb
甚至可以定义多个计算事件，然后挂需要挂的OnCalcFields事件
case I_want_CalcFields of
1: MyQuery1.OnCalcFields:=MyCalcFieldsEventProc1;
2: MyQuery1.OnCalcFields:=MyCalcFieldsEventProc2;
3: MyQuery1.OnCalcFields:=MyCalcFieldsEventProc3;
else
MyQuery1.OnCalcFields:=nil;

 

M

marshal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #5

楼上三位的方法都很好，让我也学了两招
补充一点：必须要在query打开前做相应的处理：
对于zhanggeye的方法，要在打开前赋值：
if wanttocalc then query1.tag=1 else query1.tag=0
后两位的代码则必须要放在打开query1前

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #6

结束得这么快了