LiveCode Forums.

Code: Select all

on checkData
   if fld "fldQtty" is empty or hilitedbutton of grp "grpType" is 0 or hilitedbutton of grp "grpLoc" is 0 then
      beep
      Answer error "May nakalimutan ka ilagay pa." titled "Error: May nakalimutan ilagay"
   else
      put fld "fldQtty" into tQtty
      
      if the hilite of btn "Round" then 
         put "Round" into tType
      end if
      
      if the hilite of btn "Slim" then 
         put "Slim" into tType
      end if
      
      if the hilite of btn "Clark" then
         put "Clark" into tLoc
      end if
      
      if the hilite of btn "Sapangbato" then 
         put "Sapangbato" into tLoc
      end if
      
      if the hilite of btn "WalkIn" then 
         put "Walk-IN" into tLoc
      end if
      
      put tQtty &TAB& tType &TAB& tLoc &TAB& short Time &TAB& short Date into tNewInputData
      put the pgText of widget "PgridGallon" of stack "StackGallons" into tOldData
      
      if tOldData is empty then
         put tNewInputData into tOldData
      else
         put cr & tNewInputData after tOldData
      end if
      set the pgText of widget "PgridGallon" of stack "StackGallons" to tOldData
   end if
   
   repeat for each key tkey in tOldData // i just got this code  from the dictionary
   put tOldData [tkey]["cQtty"] into tQtty
   
   // i'm stuck here I don't what's next code 
    
end checkData

Code: Select all

...
repeat for each key tkey in tOldData // i just got this code  from the dictionary
   put tOldData [tkey]["cQtty"] into tQtty
   add tQtty to tTotalSum
end repeat
...

Code: Select all

   set itemDelimiter to tab
   repeat with tLineNo = 1 to the number of lines of tOldData
      add item 1 of line tLineNo of tOldData to tSumTotal
   end repeat

Code: Select all

sort lines of tOldData descending numeric by item 1 of each 

Code: Select all

set the pgText of widget "your polygrid" to tOldData