cxgrid多选获取记录。不需要设置KeyFieldName

procedure CopyGridRecordToJsn(pvDataSet: TcxGridDBTableView; pvValueJsn:
    ISuperObject);
var
  i, j: Integer;
  lvField: TcxGridDBColumn;
  lvItem: ISuperObject;
begin
  with pvDataSet, DataController do
  begin                                           
    for i := 0 to Controller.SelectedRecordCount - 1 do
    begin
      lvItem := SO();
      try
        for j := 0 to pvDataSet.ColumnCount - 1 do
        begin
          lvField := pvDataSet.Columns[j];
          if lvField.DataBinding.ValueType <> 'Object' then
          begin
            lvItem.S[LowerCase(lvField.DataBinding.FieldName)] :=
                  VarToStrDef(GetValue(Controller.SelectedRecords[i].RecordIndex, j), '');
          end;
        end;
        pvValueJsn.O['select.value'] := lvItem;
        pvValueJsn.O['select.values[]'] := lvItem; 
      finally
        lvItem := nil;
      end;
    end;
  end;
end;