procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
Table1.Open;
Table2.Open;
while not Table1.Eof do
0A begin
Table2.Append;
for I := 0 to Table1.FieldCount-1 do0D
begin
Table2.Fields.Fields[I].AsString :=
Table1.FieleByName(Table2.Fields.Fields[I].FieldName).AsString;
end;
Table2.FieldByName('备注').AsString ;= '入库';
Table2.Post;
Table1.Next;
end;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
var I: Integer;
begin
Table1.Open;
Table2.Open;
while not Table1.Eof do
0A begin
Table2.Append;
for I := 0 to Table1.FieldCount-1 do0D
begin
Table2.Fields.Fields[I].AsString :=
Table1.FieleByName(Table2.Fields.Fields[I].FieldName).AsString;
end;
Table2.FieldByName('备注').AsString ;= '入库';
Table2.Post;
Table1.Next;
end;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 关于TidSMTP开发邮件问题
- 怎样设置Excel单元格的背景颜色和工作表Sheet的零值显示?
- 急!急!!急!!! 如下的页面的checkbox的名称是动态变化的,请问如何在WebBrowser中查找出该checkbox,并打勾确定
- DBEdit里面怎么不允许用键盘输入数据呀。急。
- 请问TClientSocket控件的阻塞模式下,有数据送来时,会触发read事件吗?
- 我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage(sq.text);怎么实现呢
- 散分
- ********* DecisionGraph如何做饼图 ****************
- 问一个久而不决的问题,在VC,VB,DELPHI版块均找不到答案,哪位高手愿意接受挑战?UP也有分
- 请教各位问题,菜鸟级的!
- 怎么调用特定的程序执行特定格式的文件
- 在Mediaplayer中播放MP3文件,快进10这功能怎么做?
Insert Into 表2(clbh,clmc,cldh,cl_rsl,cl_ysl,cl_memo)
Select A.*,
A.cl_rsl+50,
'入库'
From 表1
Insert Into 表2(clbh,clmc,cldh,cl_rsl,cl_ysl,cl_memo)
Select A.*,
A.cl_rsl+50,
'入库'
From 表1 A
,明天试验一下,肯定加分的