在delphi的TdXDBGrid获取选中行,并且修改

Question

procedure TfrmUpUserBill.suiButton1Click(Sender: TObject);
var
  i,ARow: integer;
  iLstNo: integer;
  MySaleSub: pStoreDuctRecord;
begin
showmessage(inttostr(dxDBGridSub.SelectedCount));
  for i := 0 to dxDBGridSub.count-1 do
  begin
    ARow := dxDBGridSub.Items[i].Index;
    iLstNo := ListToTree(ARow);
    if iLstNo > -1 then
    begin
      MySaleSub := TabSubList[iLstNo];
      MySaleSub^.Executor := edtPower.Text;
    end;
  end;
   FilldxDBGrid(frmTypeFlag,'')
end;
function TfrmUpUserBill.ListToTree(ARow: integer): integer;
var
  x,i: integer;
  MyInOrderSub: pComeInSubItem;
begin
  x := -1;
  for i := 0 to TabSubList.Count -1 do
  begin
    MyInOrderSub := TabSubList[i];
    if MyInOrderSub.State < 3 then
    begin
      inc(x);
      if x = ARow then
      begin
        x := i;
        Break;
      end;
    end;
  end;
  Result := x;
end;
首先dxDBGridSub.count 这个可以获取到行 但是在 dxDBGridSub.Items[i] 这个I是0 所以在带入到ListToTree里面的时候，
ListToTree的Count 没有值 求解啊

Answer 1

为什么要这么写,你这个是db控件,直接选中一行,读取绑定的数据集不就行了吗?