我想学会用编程的方法转,有哪位大虾教我?
另外:我在按钮ONCLICK里写下面一段不能实现:
procedure TForm1.Button1Click(Sender: TObject);
begin
while not query1.eof do begin
adoquery1.edit;
adoquery1.insert;
adoquery1.fieldbyname('题目').asstring:=query1.fieldbyname('题目').asstring;
adoquery1.fieldbyname('编号').asstring:=query1.fieldbyname('稿件编号').asstring;
adoquery1.fieldbyname('全文').asstring:=query1.fieldbyname('全文').asstring;
adoquery1.fieldbyname('备注').asstring:=query1.fieldbyname('备注').asstring;
adoquery1.post;
query1.next;
end;
end;
