copiar tquery.fieldlist para outra tquery.fieldlist?
16/05/2008
0
Xtreme
Posts
16/05/2008
Emerson Nascimento
query1.fieldlist.assign(query2.fieldlist);
tente aí...
16/05/2008
Xtreme
Pois é tentei mas nao funciona, ´property read-only´
17/05/2008
Emerson Nascimento
query2.fielddefs.clear;
for i := 0 to query1.FieldDefs.Count-1 do
query2.FieldDefs.Add(
query1.Fields[i].FieldName,
query1.Fields[i].DataType,
query1.Fields[i].Size,
query1.Fields[i].Required
);19/05/2008
Xtreme
query1.Fields.Clear;
for x := 0 to query2.FieldCount -1 do
begin
query1.Fields.Add(query2.Fields[x]);
end;mas ai o que acontece é que, quando executo a query1, no dbgrid até sao listados os registros mas os dados nao aparecem, aparecem as linhas no dbgrid mas nada escrito nelas!
19/05/2008
Emerson Nascimento
begin
query2.fielddefs.clear;
for i := 0 to query1.FieldDefs.Count-1 do
begin
query2.FieldDefs.Add(
query1.Fields[i].FieldName,
query1.Fields[i].DataType,
query1.Fields[i].Size,
query1.Fields[i].Required
);
query2.Fields[i].DisplayLabel := query1.Fields[i].DisplayLabel;
query2.Fields[i].EditMask := query1.Fields[i].EditMask;
if query2.Fields[i].DataType in [ftSmallint, ftInteger, ftFloat] then
begin
TFloatField(query2.Fields[i]).EditFormat := TFloatField(query1.Fields[i]).EditFormat;
TFloatField(query2.Fields[i]).DisplayFormat := TFloatField(query1.Fields[i]).DisplayFormat
end;
end;
end;21/05/2008
Xtreme
begin
query2.fielddefs.clear;
for i := 0 to query1.FieldDefs.Count-1 do
begin
query2.FieldDefs.Add(
query1.Fields[i].FieldName,
query1.Fields[i].DataType,
query1.Fields[i].Size,
query1.Fields[i].Required
);
query2.Fields[i].DisplayLabel := query1.Fields[i].DisplayLabel;
query2.Fields[i].EditMask := query1.Fields[i].EditMask;
if query2.Fields[i].DataType in [ftSmallint, ftInteger, ftFloat] then
begin
TFloatField(query2.Fields[i]).EditFormat := TFloatField(query1.Fields[i]).EditFormat;
TFloatField(query2.Fields[i]).DisplayFormat := TFloatField(query1.Fields[i]).DisplayFormat
end;
end;
end;Cara valeu pela ajuda, valeu mesmo, não usei exatamente o que vc passou, mas me deu a luz que precisava! T+
Clique aqui para fazer login e interagir na Comunidade :)
