我现有一个表,在对它进行统计以后 我只要求其中的2个字段被显示(且被打印)出来!
不知如何在哪使用动态表,且如何打印动态表中的2个字段和值!
谢谢!
不知如何在哪使用动态表,且如何打印动态表中的2个字段和值!
谢谢!
解决方案 »
- 如何获取DBGrid 中当前单元格输入的内容?
- 文件比较的问题,大家帮忙。。
- 急!急!急!急!急!急!急!急!急!在线等!等!等!等!等!等!等!等!等!等!等!(动态创建组件如何加入事件处理代码!)
- 如何解决这个难题?
- 做个调查:你所在的公司或你自己有没有用过WorkFlow技术开发信息系统?谢谢!!!(答者有分)
- 求和的SQL语句应该怎么写?在线等
- 如何获得Listview中的某个listitem的Caption值。
- 我做了一个数据库的程序,但在去到别的机器要再设BDE才能使用,我想知道如何做才在别的机器上不用再设BDE?
- 哪位了解如何用API函数连接DB2数据库?
- 如何让一个窗体随着另一个窗体一起显示?
- DBGrid
- 熟悉字符和文本处理的同志来接分
就在前臺建立臨時表(2個field),把數據insert進去
打印時與前臺臨時表關聯就可
const SizeStr: array of integer; const TypeStr: array of TFieldType);
var
Num,i:integer;
begin
Num:=High(FieldStr);
if not CTable.Exists then begin with CTable do begin
if Active then Active := False;
with FieldDefs do begin
Clear;
with AddFieldDef do begin Name := 'RecordNo';
DataType := ftInteger;
Required := True;
end;
For i:=0 to Num do begin
with AddFieldDef do begin
Name :=FieldStr[i];
DataType :=TypeStr[i];
if TypeStr[i]=ftstring then Size :=SizeStr[i];
end;
end;
end; with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := 'RDInDex';
Fields := 'RecordNo';
Options := [ixPrimary];
end;
end; CreateTable;
end;
end;end;
---------需要你放一个table控件CTable