select field1+field2+field3....
from table1
from table1
解决方案 »
- 怪事,我按F7执行到一个timer事件后就反复的执行只好reset,然后提示internal error:URW2871
- 琢磨了很久的一个控件,可能是cxLookupComboBox,请用过的兄弟帮忙了
- 撞鬼了
- Delphi如何实现文件关联
- 请问如何在系统托盘里使用256色及以上的图标
- 求救:如何从客户端最服务器上的系统时间?在线等。。谢谢了
- 我想做个自画按钮,大家提提建议怎么做好?
- 在Form的OnShow事件中Close窗体,我找到一个方法,但是仍然有缺陷。能帮我看看吗?
- 关于INPUTBOX的问题?
- 一个sql中的问题(急,高手请帮助解决一下)
- 最高分请教,怎样让树状视图每一项都出现 hint 提示?
- 如何使listbox新添加的文字为红色?
S: string;
begin
Query1.Close;
Query1.SQL.Text := 'SELECT * FROM Table1 WHERE ID=0';
Query1.Open;
S := StringReplace(Trim(Query1.FieldList.Text), ID, '', [rfReplaceAll]);
S := StringReplace(S, #13#10, '+', [rfReplaceAll]);
Query1.Close;
Query1.SQL.Text := Format('SELECT (%s) AS fSUM FROM Table1', [S]);
Query1.Open;
end;
可以把一行的值全都加起来
fSum: Double;.............
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select sum(your_FieldName) as SUMVALUE form your_TableName');
Open;
fSum:=FieldByName('SUMVALUE').AsFloat;
end;
from table1
from table1