Scroll through all rows in a grids.

[zsleo]

I want to scroll through all rows in a grid - not just the displayed rows.

How can I do this in code

I am using

Code: Select all

    for lv_R := 0 to ip_Grid.RowCount - 1 do
    begin
      lv_S := '"' + ip_Grid.CellValues[0, lv_R] + '"';

      for lv_C := 1 to ip_Grid.JQGridColumns.Count - 1 do
      begin
        if VarIsNull(ip_Grid.CellValues[lv_C, lv_R]) then
          lv_S := lv_S + ',""'
        else
          lv_S := lv_S + ',"' + ip_Grid.CellValues[lv_C, lv_R] + '"';
      end;

      lv_SL.Add(lv_S);
    end;


..but it only scrolls through displayed rows.

TIA

[Alexander Bulei]

Hi zsleo,

On server, you can use the data source directly...why you need loop the grid?

Best Regards.

[zsleo]

Hi Alexander

... because the user has the ability to change the columns displayed, the order of the columns and there are a number of columns that have values different than the dataset.

I would use Excel export but as you know the XLS file is corrupted.

Please, can you advise how I can do the iteration

TIA

[Alexander Bulei]

Hi zsleo,

.. because the user has the ability to change the columns displayed, the order of the columns and there are a number of columns that have values different than the dataset.

I want to scroll through all rows in a grid - not just the displayed rows.

Ok, so what do you mean with not just the displayed rows? pagination?

Best Regards.

[zsleo]

Alexander,
I want l the same functionality as the Excel export that exports "corrupt"/"unusable" XLS files. Not a complete list but:
-- all record rows and columns that can be viewed in the grid
- paged and scrolled implementation
- grid search is user defined
- column visibility is used defined
- etc

TIA

[zsleo]

I know I am pushing but is there a response to this.

I have users complaining that they can't view their extracts. ...

TIA

[Jorge Sousa]

Hi Zsleo

you're not right about all this

I want to scroll through all rows in a grid - not just the displayed rows.

How can I do this in code

I am using

CODE: SELECT ALL
for lv_R := 0 to ip_Grid.RowCount - 1 do
begin
lv_S := '"' + ip_Grid.CellValues[0, lv_R] + '"';

for lv_C := 1 to ip_Grid.JQGridColumns.Count - 1 do
begin
if VarIsNull(ip_Grid.CellValues[lv_C, lv_R]) then
lv_S := lv_S + ',""'
else
lv_S := lv_S + ',"' + ip_Grid.CellValues[lv_C, lv_R] + '"';
end;

lv_SL.Add(lv_S);
end;


..but it only scrolls through displayed rows.

Because IT DOES scrolls all the rows, not only the displayed rows, unless you are using a custom loading code

[zsleo]

Attached simple test case exports only 5 records but there are 6 records....

Place the data.kmd file in same directory as the exe

[Jorge Sousa]

Hello

I'm sorry, since i've seen CellValues in your source code, in previous posts, i thought you were using CellsProvider

You must use the source of your data: kbmtbl1

the only thing i don't know is what is so special about column 0,

to respect the follow the column order, you can do:

Code: Select all

var
  Field: TField;

kbmtbl1.First;
while not kbmtbl1.Eof do
  begin
    for lv_C := 0 to ip_Grid.JQGridColumns.Count - 1 do
    begin
      Field:= kbmtbl1.FindField(ip_Grid.JQGridColumns[c].Name);
      if not Assigned(Field) or Field.IsNull then
        lv_S := lv_S + ',""'
      else
        lv_S := lv_S + ',"' + Field.Value + '"';
    end;
    lv_SL.Add(lv_S);
    kbmtbl1.Next;
  end;

    lv_SL.SaveToFile(lv_FN);

    iwcgjqfldwnld1.DownloadFileName(lv_FN);

    FreeAndNil(lv_SL);


[zsleo]

Jorge,

As I stated this is a simple example.

How can I programmatically get:
- the columns that are shown because the user is able to show and hide columns
- get the values in the grid header search boxes because the user can narrow the selection for each column. I muse get the valuesame for the last actual search because the user may not actually press enter to activate the search after entering text

This is the only way I will be able to create the correct select statement for the dataset.

Please see my earlier post in this thread.

TIA