计算字段(100分)

H

Haha...

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-24

• #1

如下字段
pos :integer
ismr:boolean
LB :integer
Ej :integer (计算字段)
要实现 Ej 的值为对应记录的pos值与
它上面最近的ismr为真的记录的LB值
之和.

 

L

LawrenceZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #2

continue...

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-18

• #3

if table1ismr.value=true then
begin
tableej.value:=tablepos.value+tablelb.value;
end;

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-18

• #4

>>要实现 Ej 的值为对应记录的pos值与
它上面最近的ismr为真的记录的LB值
之和.
你是如何排序的??有关键字吗?
我觉得要用循环判断.

 

R

robertcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-18

• #5

procedure onquerycal.....
begin
if query.fieldbyname('ismr').asboolean then
begin
query.fieldbyname('ej').asinteger := query.fieldbyname('pos').asinteger +
query.fieldbyname('lb').asinteger
end;
end;

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-18

• #6

大家别忙着写代码抢分,看看
wumeng说的,
<font color=red>要实现 Ej 的值为对应记录的pos值与
它上面最近的ismr为真的记录的LB值
之和.
你是如何排序的??有关键字吗?
我觉得要用循环判断.</font>

 

陈

陈君凯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #7

with qurey1 do
begin
close;
sql.clear;
sql.add('Select pos,ismr,lb,pos+ismr as ej From ......');
prepare;
open;
end

 

H

hhzh426

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #8

nearest:=0;
while not query1.eof do
begin
if query1['ismr'] then nearest:=query1['lb'];
query1['ej']:=query1['pos']+nearest;
query1.next;
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-21

• #9

多人接受答案了。