开发者社区云计算文章正文

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

2011-08-23 803

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： procedure CopyGridRecordToJsn(pvDataSet: TcxGridDBTableView; pvValueJsn: ISuperObject);var i, j: Integer; lvField: TcxGridDBColumn; lvItem: I...

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 ;