如题,请指教!
解决方案 »
- 开发网络程序,应该选用那个网络组件?
- 谁能给我一点rave designer的使用方法吗?
- 请问如何将八进制数转换成十六制数?谢谢
- 最近写asf的一些程序!用WM ASF Reader接到Dump Receive速度有些怪!
- 我用的是access数据库,备份和恢复,应该怎么做?
- 关于TRichEdit控件的查找方法议题?
- 我在编译1stclass3000例子地时候。。总说fcpanel.dcu找不着。。。。?
- sql的网络bde怎么设置?
- DELPHI做的ACTIVE FORM 控件
- 控件的 OnDragOver 和 OnDockOver 事件有什么区别,如何使用啊?
- 关于流的问题请教大家了.在线等中.
- datetostr 函数的返回值
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
是不是要这,改一改就成求和的了
var
i, j: Integer;
s: string;
begin
j:=0;
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
j:=j+DBGrid1.DataSource.DataSet['字段'];
end;
StatusBar1.Panels[0].Text:=IntToStr(j);
end;