CxGrid控件的多选

 

 

CxGrid控件的多选

{--将主单号插入到包信息里 cyj 2009-10-28 --}
procedure TFGSCYEditForm.Insert_ZDH;
var
  I,J: Integer;
  //Bk:Tbookmark;
  ASQLStr : String;
begin
  with cxGridDBTableView3.DataController, cxGridDBTableView3.DataController.DataSet do
  begin
        DisableControls;

        for i:= 0 to GetSelectedCount-1 do
        begin
          Bookmark := GetSelectedBookmark(i);
          if not ( dsMaster.DataSet.State in [dsEdit]) then
          begin
            dsMaster.DataSet.edit;
          end;

          dsMaster.DataSet.FieldByName('FGSCYZDH').AsString :=SCZDXXDialogForm.dsZDB.DataSet.FieldByName('BillNo').AsString ;

 

 

        end;

        EnableControls;
       // Free(Bk);
       
  end;

    TUserDataSet(SCZDXXDialogForm.dsZDB.DataSet).ApplyUpdates();    //--提交数据集
    TUserDataSet(dsMaster.DataSet).ApplyUpdates();    //--提交数据集

end;