【结贴】[请求]SQL取人员问题**

Crazy_wen2006

写了一段程序，从人员表中根据部门ID取姓名，并将所取得姓名写入另一个数据表的XM字段下，现在有一问题相求：
如：取出三个人名：A,B,C
然后写入DSBM表中的XM字段，这时出现三个都是A，程序如下，请斑竹帮忙分析下，谢谢。
procedure TKQBD.ButSQLClick(Sender: TObject);
var
strsql,strfilter:string;
i:integer;
begin
    strfilter:= 'SELECT FDISPLAYNAME from Tperson where FDEPTID=''FYHRJZ_JSJZY'''   ;
    TSQLDataSet(ds2.DataSet).SQL.Text :=strfilter ;
    ds2.DataSet.close;
    ds2.DataSet.Open;
    for i:=0 to ds2.dataset.recordcount -1 do
     begin
     dsbm.DataSet.Append;
     dsbm.DataSet.FieldByName('xm').asstring:=ds2.DataSet.FieldByName('FDISPLAYNAME').AsString;
     dsbm.DataSet.ApplyUpdates;
     end;
end;
end.

atiger

1、说说你的代码，在给DataSet重新赋SQL语句时，应该先关闭数据集，赋值后再打开
应该是
  ds2.DataSet.close;
strfilter:= 'SELECT FDISPLAYNAME from Tperson where FDEPTID=''FYHRJZ_JSJZY'''   ;
    TSQLDataSet(ds2.DataSet).SQL.Text :=strfilter ;
    ds2.DataSet.Open;

2、至于你说的出现了三个A，那是在循环中ds2 这个数据集没有循环，应该修改为
    for i:=0 to ds2.dataset.recordcount -1 do
     begin
     dsbm.DataSet.Append;
     dsbm.DataSet.FieldByName('xm').asstring:=ds2.DataSet.FieldByName('FDISPLAYNAME').AsString;
     ds2.DataSet.next;  
     end;

3、另外，提交数据应该放到循环的最后，这样减少跟数据库的交互，即   dsbm.DataSet.ApplyUpdates; 应该放到循环的外面

Crazy_wen2006

谢谢版主。。结贴