how to use repeat in polygrid?

[lemodizon]

Hi everyone,

I want to get the datas from my polygrid the item 1 and item 2 and save it to my database.

[img

][/img]


I tried to run my code but it only get the data the one is highlited from my polygrid

Code: Select all

 put the hilitedline of widget "pgDetails" of stack "ArtistOutputSheet" into tLine
      set the itemDelimiter to tab
      put line tLine of the pgText of widget "pgDetails" of stack "ArtistOutputSheet" into tData
      repeat with x = 1 to the number of lines in tData
         put item 1 of tData & cr into tList
      end repeat
      answer tList
      

[bn]

Hi lemodizon,

There is tsvData for the polygrid, you can set and get tsvData of a polygrid.
The first line is the column headers.
That is one way to get at your data, here it seems to be the easiest way.

Code: Select all

on mouseUp
   put the tsvData of widget "pgDetails" into tData
   set the itemDelimiter to tab
   repeat with i = 1 to the number of lines of tData
      put item 1 to 2 of line i of tData & return after tCollect
   end repeat
   delete char -1 of tCollect # a return
   
   ## I reset the itemDelimiter, not necessary here but in longer scripts 
   ## it is easy to forget that the itemDelimiter is not comma
   set the itemDelimiter to comma
   
   ## tCollect contains your result as tabbed list
   
   put tCollect into message box
end mouseUp

Kind regards
Bernd

[lemodizon]

Hi lemodizon,

There is tsvData for the polygrid, you can set and get tsvData of a polygrid.
The first line is the column headers.
That is one way to get at your data, here it seems to be the easiest way.

Code: Select all

on mouseUp
   put the tsvData of widget "pgDetails" into tData
   set the itemDelimiter to tab
   repeat with i = 1 to the number of lines of tData
      put item 1 to 2 of line i of tData & return after tCollect
   end repeat
   delete char -1 of tCollect # a return
   
   ## I reset the itemDelimiter, not necessary here but in longer scripts 
   ## it is easy to forget that the itemDelimiter is not comma
   set the itemDelimiter to comma
   
   ## tCollect contains your result as tabbed list
   
   put tCollect into message box
end mouseUp

Kind regards
Bernd

Hi Bernd,

thanks again for helping me out

question what is the use of delete char -1? i tried to use the toggle breakpoint so that i can see if there will be changes noting change or i guess i just overlook the code.


thank you very much you help me simplified my code thanks

[bn]

Hi lemodizon,

question what is the use of delete char -1? i tried to use the toggle breakpoint so that i can see if there will be changes noting change or i guess i just overlook the code.

Code: Select all

delete char -1

is the return at the end of tCollect which it puts there in the last iteration.
I prefer to take it out to make the list a clean list.

Kind regards
Bernd

[lemodizon]

hi Bernd,

thanks for the explanation.