请大家快帮忙看看：Query2: Can not modify a readonly dataset！！！

Question

TQuery有很多限制，如不能在查询语句中使用Order by等

Answer 1

>>to be continueTQuery有很多限制，如不能在查询语句中找多个表中的数据！如Select a1.field1, a2.field1 
from a1, a2
where a1.id=a2.id这样也会出现上述错误！

Answer 2

jiangwang:
  怎样建，我用的是Paradox，用否给出代码？

Answer 3

to snakeguo (枫) 
按你所说的，TQuery应该支持的。
你是不是在数据集里用了循环，你将Edit写在循环内试试。

Answer 4

with Query2 do  (*with*)
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT Series.series, Series."Series-name" as 产品分类, ' +
  '9999999.99 as 期初数, AVG(Prodlist.Uniteprice) as 期初单价, ' +
  '9999999.99 as 期初金额, ' +
  '9999999.99 as 入库数, 9999999.99 as 入库金额, ' +
  '9999999.99 as 销售数, 9999999.99 as 发出生产, ' +
  '9999999.99 as 结存数, AVG(Prodlist.Uniteprice) as 结存单价, ' +
  '9999999.99 as 结存金额 ' +
  'FROM "Finish01.DB" Finish01, "series.DB" Series, ' +
  '"Prodlist.DB" Prodlist, "Prodlist01.DB" Prodlist01 ' +
  'WHERE (Finish01.Part = Prodlist.Partsno) ' +
  'AND (Prodlist.Series = Series.Series) ' +
  'AND (Series."series-branch" = ''热双金属'') ' +
  'AND (Prodlist01.Series = Series.series) ' +
  'group by Series."Series-name", Series.series ' +
  'order by Series.series');
  Open;
end;  (*with*)with Query1 do (*with*)
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT Series.series, Series."Series-name" as 产品分类, ' +
  'sum(Finish01.qty) as 期初数 ' +
  'FROM "Finish01.DB" Finish01, "series.DB" Series, ' +
  '"Prodlist.DB" Prodlist ' +
  'WHERE (Finish01.Part = Prodlist.Partsno) AND ' +
  '(Prodlist.Series = Series.Series) AND ' +
  '(Finish01.stockcode = 1) ' +
  'group by Series."Series-name", Series.series ' +
  'order by Series.series');
  Open;  First;  while not EOF do (*while*)
  begin
    Query2.Locate('产品分类', FindField('产品分类').AsString, []);
    Query2.Edit;(*Error here!!!*)
    Query2.FindField('期初数').AsFloat := FindField('期初数').AsFloat;
    Query2.Post;     Next;
  end; (*while*)end; (*with*)

Answer 5

我遇到和你相同的情况，我觉得是你把Query相关的属性改改
要么重新换个新的Query试试

Answer 6

query 组件不能修改数据表的结构！你可以使用session！还有我看你的字段怎么是重复的啊？