将一个数据集赋给另外一个数据集（两数据集只有部分的字段相同）-CSDN博客

将一个数据集赋给另外一个数据集（两数据集只有部分的字段相同）

省去了很多力气的函数---姜还是老的辣啊

{-- 查找托运单 cyj 2009-8-11--}
function TPaymentManageForm.getStockBill(billno:String) : Boolean;
var
strBill,FieldName: string;
Flag : Boolean;
I: Integer;
begin
   Flag := False;
   strBill := ' select * from 运单资料表 where 运单编号='+ QuotedStr(billno);
   DM.GetDataPack(strBill,Cds3);

   if not Cds3.IsEmpty then
   begin
      Flag := True;
      if Cds3.RecordCount > 0 then
        begin
          with CDS1 do
          begin
            if not (State in [dsEdit,dsInsert]) then
              Edit;
            for I := 0 to Cds3.FieldCount - 1 do
            begin
              FieldName := Cds3.Fields[I].FieldName;
              if FindField(FieldName) <> nil then
                FieldByName(FieldName).Value := Cds3.FieldByName(FieldName).Value;
            end;
            Post;
          end;
        end;

//CDs1.FieldByName();
//CDS1.Data := CDS3.data; //--整个数据集给值

     { CDs1.FieldByName('运单编号').Value := CDS3.FieldByName('运单编号').AsString ;
      CDs1.FieldByName('寄件日期').Value := CDS3.FieldByName('寄件日期').AsString ;
      CDs1.FieldByName('中转单号').Value := CDS3.FieldByName('中转单号').AsString ;
      CDs1.FieldByName('回单号').Value := CDS3.FieldByName('回单号').AsString ;
      CDs1.FieldByName('寄件人').Value := CDS3.FieldByName('寄件人').AsString ;

      CDs1.FieldByName('业务方式').Value := CDS3.FieldByName('业务方式').AsString ;
      CDs1.FieldByName('运输管道').Value := CDS3.FieldByName('运输管道').AsString ;
      CDs1.FieldByName('运输管道成本').Value := CDS3.FieldByName('运输管道成本').AsString ;
      CDs1.FieldByName('运输管道成本币别').Value := CDS3.FieldByName('运输管道成本币别').AsString ;
      CDs1.FieldByName('收件成本').Value := CDS3.FieldByName('收件成本').AsString ;

      CDs1.FieldByName('收件成本币别').Value := CDS3.FieldByName('收件成本币别').AsString ;
      CDs1.FieldByName('收派员').Value := CDS3.FieldByName('收派员').AsString ;
      CDs1.FieldByName('调度员').Value := CDS3.FieldByName('调度员').AsString ;
      CDs1.FieldByName('调度时间').Value := CDS3.FieldByName('调度时间').AsString ;
      CDs1.FieldByName('寄件公司').Value := CDS3.FieldByName('寄件公司').AsString ;

      CDs1.FieldByName('寄件省份').Value := CDS3.FieldByName('寄件省份').AsString ;
      CDs1.FieldByName('寄件市县').Value := CDS3.FieldByName('寄件市县').AsString ;
      CDs1.FieldByName('寄件区镇').Value := CDS3.FieldByName('寄件区镇').AsString ;
      CDs1.FieldByName('寄件电话').Value := CDS3.FieldByName('寄件电话').AsString ;
      CDs1.FieldByName('寄件邮编').Value := CDS3.FieldByName('寄件邮编').AsString ;

      CDs1.FieldByName('寄件地址').Value := CDS3.FieldByName('寄件地址').AsString ;
      CDs1.FieldByName('发件地').Value := CDS3.FieldByName('发件地').AsString ;
      CDs1.FieldByName('目的地').Value := CDS3.FieldByName('目的地').AsString ;
      CDs1.FieldByName('收件人').Value := CDS3.FieldByName('收件人').AsString ;
      CDs1.FieldByName('收件公司').Value := CDS3.FieldByName('收件公司').AsString ;

      CDs1.FieldByName('收件省份').Value := CDS3.FieldByName('收件省份').AsString ;
      CDs1.FieldByName('收件市县').Value := CDS3.FieldByName('收件市县').AsString ;
      CDs1.FieldByName('收件区镇').Value := CDS3.FieldByName('收件区镇').AsString ;
      CDs1.FieldByName('收件电话').Value := CDS3.FieldByName('收件电话').AsString ;
      CDs1.FieldByName('收件邮编').Value := CDS3.FieldByName('收件邮编').AsString ;

      CDs1.FieldByName('收件地址').Value := CDS3.FieldByName('收件地址').AsString ;
      CDs1.FieldByName('收件员').Value := CDS3.FieldByName('收件员').AsString ;
      CDs1.FieldByName('收件日期').Value := CDS3.FieldByName('收件日期').AsString ;
      CDs1.FieldByName('发件网点').Value := CDS3.FieldByName('发件网点').AsString ;
      CDs1.FieldByName('派件网点').Value := CDS3.FieldByName('派件网点').AsString ;

      CDs1.FieldByName('派件员').Value := CDS3.FieldByName('派件员').AsString ;
      CDs1.FieldByName('录派件时间').Value := CDS3.FieldByName('录派件时间').AsString ;
      CDs1.FieldByName('录派件员').Value := CDS3.FieldByName('录派件员').AsString ;
      CDs1.FieldByName('签收日期').Value := CDS3.FieldByName('签收日期').AsString ;
      CDs1.FieldByName('签收时间').Value := CDS3.FieldByName('签收时间').AsString ;

      CDs1.FieldByName('签收人').Value := CDS3.FieldByName('签收人').AsString ;
      CDs1.FieldByName('派送状态').Value := CDS3.FieldByName('派送状态').AsString ;
      CDs1.FieldByName('运费').Value := CDS3.FieldByName('运费').AsString ;
      CDs1.FieldByName('加急费').Value := CDS3.FieldByName('加急费').AsString ;
      CDs1.FieldByName('保险费').Value := CDS3.FieldByName('保险费').AsString ;

      CDs1.FieldByName('代收货款').Value := CDS3.FieldByName('代收货款').AsString ;
      CDs1.FieldByName('到付款').Value := CDS3.FieldByName('到付款').AsString ;
      CDs1.FieldByName('货款状态').Value := CDS3.FieldByName('货款状态').AsString ;
      CDs1.FieldByName('快件类型').Value := CDS3.FieldByName('快件类型').AsString ;
      CDs1.FieldByName('服务方式').Value := CDS3.FieldByName('服务方式').AsString ;

      CDs1.FieldByName('物品名称').Value := CDS3.FieldByName('物品名称').AsString ;
      CDs1.FieldByName('件数').Value := CDS3.FieldByName('件数').AsString ;
      CDs1.FieldByName('长').Value := CDS3.FieldByName('件').AsString ;
      CDs1.FieldByName('件').Value := CDS3.FieldByName('件').AsString ;
      CDs1.FieldByName('件').Value := CDS3.FieldByName('件').AsString ;
        }

end;

Result := Flag;
end;