大哥:
我想把用query控件查找出来的记录,修改它们的其中一个字段。
用下列代码选记录,想把选出来的记录的某个字段值附值为从1到n
with query1 do
begin
close;
with sql do
begin
clear;
add('select * from danxuan');
add('order by Knowledgepoint');
end;
open;
end;
我想把用query控件查找出来的记录,修改它们的其中一个字段。
用下列代码选记录,想把选出来的记录的某个字段值附值为从1到n
with query1 do
begin
close;
with sql do
begin
clear;
add('select * from danxuan');
add('order by Knowledgepoint');
end;
open;
end;
RequestLive:=true;
query1.First
while not query1.Eof do
begin
query1.Edit;
query1.FieldByName('字段名').AsInteger:=query1.RecNo;
query1.Post;
query1.Next;
end;
Query1.first;
while not Query1.Eof then
if (满足条件) then
begin
Query1.fields[i].AStype:= //--you wanted;and the type you
//needed
next;
end;
begin
close;
with sql do
begin
clear;
add('select * from danxuan');
add('order by Knowledgepoint');
end;
open;
end;query1.first;
for i:=0 to query1.RecordCount-1 then
begin
query.FieldByName(字段名).value:=i+1;
query.post;
query.next;
end;
Query1.first;
while not Query1.Eof then
if (满足条件) then
begin
Query1.fields[i].AStype:= //--you wanted;and the type you
//needed
Query1.next;
end;
就是文件里没有值!
with query1 do
begin
close;
with sql do
begin
clear;
add('select * from danxuan');
add('order by Knowledgepoint');
end;
open;
if query1.recordcount>0 then
begin
query1.edit
.................
query1.applyupdatas;
query1.commiupdatas;
end;