(紧急)能不能在已经查询出来的recordset中添加一个字段并给予赋值? ( 积分: 100 )

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #1

具体要求是比如我用查询获得了下面的数据:
字段: id name a1 a2 a3
01 一 1 2 3
02 二 4 5 6
03 三 7 8 9
... ... ... ... ...
我现在需要在上面得到的recordset中添加一个字段aall
它的值为 a1*0.3+a2*0.6+a3*0.4

不知道delphi中是否可以实现这样的操作
紧急!

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #2

具体要求是比如我用查询获得了下面的数据:
字段: id name a1 a2 a3
01 一 1 2 3
02 二 4 5 6
03 三 7 8 9
... ... ... ... ...
我现在需要在上面得到的recordset中添加一个字段aall
它的值为 a1*0.3+a2*0.6+a3*0.4

不知道delphi中是否可以实现这样的操作
紧急!

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #3

在ＳＱＬ中实现：
select *,a1*0.3+a2*0.6+a3*0.4 as aall from tabname

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #4

用Calculated 字段，在OnCalculate事件中写入
adoquery1aall.value;=adoquey1a1.value*0.3+adoquery1a2.value*0.6+adoquery1a3*0.4;

 

H

helloqiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #5

楼上两位已经讲了，要么用sql语句，要么用计算字段

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #6

不是很明白
Calculated字段如何设置？我没有发现OnCalculate事件
同时问一下，有adoquery1aall这种写法么？
sql语句的那种我知道怎么做。但是现在的情况是已经无法在那上面继续开刀写sql了。

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #7

呵呵，找到了，也想办法作了一些改动，眼看要成功了，
但是编译告诉我dataset not in edit or insert mode，请问怎么修改阿，
马上给分

 

R

robinhanhui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #8

晕没有处于edit和insert模式啊
要么query1.edit;
要么query1.insert;
然后post

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #9

adoquery1aall.value;=adoquey1a1.value*0.3+adoquery1a2.value*0.6+adoquery1a3*0.4;是指ado_baobiao.FieldByName('aall').value(略)么?

 

G

gangp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #10

calcfield一定要在oncalcfield事件里面赋值。

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #11

我的用法是：
ado.Edit;
DataSet.FieldDefs.Add('总评', ftInteger, 0, False);//这里的dataset是ado
adoCalcFields(ado);
在procedure TForm1.adoCalcFields(DataSet: TDataSet);
中写下如下代码：
ado.FieldByName('总评').Value := ado.FieldByName('期中').Value;//为了测试，先显示出来再说

结果是告诉我说没有"总评"这个字段．
不知道是不是方式用错了？

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #12

大虾们,先别急着下班啊
问题紧急啊!
谢谢了![]

 

C

caina3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-13

• #13

题中说了是delphi中实现,所以给这三人分,虽然最后用这个方法也没能实现我的实际的需求,但这三人教会了我多一种方式.谢谢!