我有两个表,需用要一个表向另一个表写数据全部写出入! table1.open;
table1.append;
table2.edit;
if not table2.eof then
begin
edit3.text:=table2.fieldbyname('book_num').asstring;
table1.fieldbyname('book_num').asstring:=table2.fieldbyname('book_num').asstring;
table1.fieldbyname('book_name').asstring:=table2.fieldbyname('book_name').asstring;
table1.fieldbyname('book_price').ascurrency:=table2.fieldbyname('book_price').ascurrency;
table1.post;
请大家看一下如何将table2向table2中数据全部写出入。请大家说一下能否将
sql table 写出一下。
table1.append;
table2.edit;
if not table2.eof then
begin
edit3.text:=table2.fieldbyname('book_num').asstring;
table1.fieldbyname('book_num').asstring:=table2.fieldbyname('book_num').asstring;
table1.fieldbyname('book_name').asstring:=table2.fieldbyname('book_name').asstring;
table1.fieldbyname('book_price').ascurrency:=table2.fieldbyname('book_price').ascurrency;
table1.post;
请大家看一下如何将table2向table2中数据全部写出入。请大家说一下能否将
sql table 写出一下。
解决方案 »
- Adoquery中如何控制某个字段不录入重复值?
- indy的server端怎么给client端发文本信息?
- 关于循环比较字符串的问题!
- 计算字段能否实现以下功能吗,请大家看看
- 如何检测网线被拔下、网卡被禁用?局域网内本机网络是否正常工作????
- 救命!我的源码没了,如何得到程序可执行体的某个控件的值?(在线等)
- 在线等候:怎样拦截窗体上所有控件的单击事件。不胜感激。
- 判断一个数字是不是货币金额的函数点写?
- 怎么让程序最小化时,不显示在任务栏,出现在右边系统托盘中?
- 又一个简单的问题
- 在delphi5中如何实现windows 2000中的net send 功能
- 在listView中拖的时候,如何避免不触发他的click事件?
while not table2.eof do
begin
table1.append;
table1.fieldbyname('xx').text:=table2.fieldbyname('xx').text;
table2.next;
end;