CXGRID 獲取選取行的值(轉)

来源：互联网发布：餐饮管理系统数据库表编辑：程序博客网时间：2024/06/06 05:08

方法一：
使用函数GetRowValue
此方法在表格过滤、排序后也正常
procedure TfrmBillExtraction.pmGetBill_D_DatasClick(Sender: TObject);
var
I,J : Integer;
begin
with cxGDBTV_Bill_M.DataController,cxGDBTV_Bill_M.DataController.DataSet do
begin
    for I := 0 to GetSelectedCount-1 do
    begin
      J := GetSelectedRowIndex(I);
      //取选中行，列名为sMergeNO的值
      ShowMessage(Trim(GetRowValue(GetRowInfo(J),FieldByName('sMergeNo').Index)));
    end;
end;
end;

方法二：
使用函数：GetValue
此方法开了过滤、排序后不正常，请大家注意。
procedure TfrmBillExtraction.pmGetBill_D_DatasClick(Sender: TObject);
var
I,J : Integer;
begin
with cxGDBTV_Bill_M.DataController,cxGDBTV_Bill_M.DataController.DataSet do
begin
    for I := 0 to GetSelectedCount-1 do
    begin
      J := GetSelectedRowIndex(I);
      //取选中行，列名为sMergeNO的值
      ShowMessage(Trim(GetValue(J,FieldByName('sMergeNo').Index)));
    end;
end;
end;