Table 的小问题，我是初学者。

jijing 2002-12-25 10:18:28

我想把ADODataSet1的很多数据转换到Table1中
我的这段代码为什么出问题，？请大家帮忙、谢谢

procedure TForm1.Button4Click(Sender: TObject);
begin
//打开jijing gbook 并且移动到末尾
Table1.Open;
while not Table1.Eof do Table1.Next;

//添加没有同步的数据数据
while not ADODataSet1.Eof do
begin
Table1.Insert;
Table1.Fields[0].Value:=ADODataSet1.Fields[2].AsString;
Table1.Fields[1].Value:=ADODataSet1.Fields[4].AsString;
Table1.Fields[2].Value:=ADODataSet1.Fields[0].AsString;
Table1.Fields[3].Value:=ADODataSet1.Fields[1].AsString;
Table1.Fields[4].Value:=ADODataSet1.Fields[3].AsString+' 0:01:01';
Table1.Fields[5].Value:='Face01.gif';
Table1.Fields[7].Value:=true;
ADODataSet1.Next;
Table1.next;
end;
Table1.Post;

end;

...全文

40 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

jijing 2002-12-25

打赏
举报

为什么我无法结帖啊？

密码错误，你无权结贴。提示我这个？？？

bluemeteor 2002-12-25

打赏
举报

1.while not Table1.Eof do Table1.Next;这句可以用table1.Last 来代替
2.while not ADODataSet1.Eof do
begin
Table1.Insert;这个换成table1.append
3.ADODataSet1.Next;这个保留
Table1.next;把这个注释掉
4.如果代码报错请把错误提示帖出

WWWWA 2002-12-25

打赏
举报

在循环中设置TABLE1.EDIT

zhangweibase 2002-12-25

打赏
举报

procedure TForm1.Button4Click(Sender: TObject);
begin
//打开jijing gbook 并且移动到末尾
Table1.Open;
Table1.Last;

//添加没有同步的数据数据
while not ADODataSet1.Eof do
begin
Table1.Append;
Table1.Fields[0].Value:=ADODataSet1.Fields[2].AsString;
Table1.Fields[1].Value:=ADODataSet1.Fields[4].AsString;
Table1.Fields[2].Value:=ADODataSet1.Fields[0].AsString;
Table1.Fields[3].Value:=ADODataSet1.Fields[1].AsString;
Table1.Fields[4].Value:=ADODataSet1.Fields[3].AsString+' 0:01:01';
Table1.Fields[5].Value:='Face01.gif';
Table1.Fields[7].Value:=true;
ADODataSet1.Next;
Table1.post;
end;
end;

zhangweibase 2002-12-25