for i:=1 to table1.recordcount do
begin
table2.Append;
table2.FieldByName('kh').asinteger:=table1.FieldByNam('kh').asinteger;
table2.FieldByName('zp').value:=table1.FieldByName('zp').value;
database2.StartTransaction;
table2.Post;
table1.Next;
progressbar1.Position:=progressbar1.Position+round(100*Table2.RecordCount/Table1.RecordCount);
end;
begin
table2.Append;
table2.FieldByName('kh').asinteger:=table1.FieldByNam('kh').asinteger;
table2.FieldByName('zp').value:=table1.FieldByName('zp').value;
database2.StartTransaction;
table2.Post;
table1.Next;
progressbar1.Position:=progressbar1.Position+round(100*Table2.RecordCount/Table1.RecordCount);
end;
解决方案 »
- webbrowse怎么调用.do类型的地址?
- DELPHI2009 语法问题.
- 改名了,改名了,以后大家叫我阿三就行了,呵呵
- **************************关于TIdHttp.post的问题******************************
- Listbox的问题
- 急急急,请教delphi调试中查看变量值的方法是什么??在线等候
- 如果想做一个foxmail类似的系统,应该查一些什么样的资料?
- 请帮忙写一个多窗口浏览器!
- pchar与string怎么互相转换,谢谢,大家光棍节快乐
- 安装程序的制作
- 高分求在DBGRID中修改多表字段值的SQL语句。waiting.....
- BDE 和 ADO 的区别?
这样的拼音如不是周海军,似乎也只能是周海俊了。