1表的数据转化到2表?

Question

如果要用T-SQL做不妨看看利用服务段光标进行滚动处理的例子如果想用Delphi做那就太简单了，先用Select Distinct选择表1中的empid，再循环向表2插入对应记录就行了。

Answer 1

query1.sqltxt := 'select distinct empid,ddate,dtime from biao1 where empid = '01''
query1.open;query2.append;
query2.fieldbyname('empid').asstring := query1.fieldbyname('empid').asstring;
query2.fieldbyname('ddate').asdatatime := query1.fieldbyname('ddate').asdatetime;
for i:= 0 to query1.recordcount -1 do
begin
  query2.fields[I+2].asdatetime := query1.fields[2].asdatetime;
end;