LiveCode Forums.

Code: Select all

on mouseUP
put fld "comments" into theDataA["comments"]
end mouseUp

Code: Select all

local vLine
on mouseDown
   put the dgIndex of me into vLine
end mouseDown
on FillInData pDataArray

set the text of field "Label" of me to pDataArray["label 2"]
set the text of field "name" of me to pDataArray["name"]
set the text of field "commentField" of me to pDataArray["commentField"]
set the text of field "order" of me to pDataArray["order"]
set the text of field "total" of me to pDataArray["total"]

end FillInData

command EditValue
switch the short name of the target
case "Label"
EditFieldText the long id of field "Label" of me, the dgIndex of me,"label 2"
break
case "name"
EditFieldText the long id of field "name" of me, the dgIndex of me,"label 3"
break
case "commentField"
EditFieldText the long id of field "commentField" of me, the dgIndex of me,"label 4"
break
case "order"
EditFieldText the long id of field "order" of me, the dgIndex of me,"label 5"
break
case "total"
EditFieldText the long id of field "total" of me, the dgIndex of me,"label 8"
break
end switch
end EditValue

on mouseDoubleUp pMouseBtnNum
    if pMouseBtnNum is 1 then
        if (word 1 of the target is "field") then
            if the dgProps["allow editing"] of the dgControl of me then
                EditValue
                exit mouseDoubleUp
            end if
        end if
    end if
    
    pass mouseDoubleUp
end mouseDoubleUp

on mouseUp pTheButton
if (pTheButton is 1) then
switch the short name of the target
case "Background"
break

//This is where I add the comments to the field but they are not retained when leaving the card
//I assume this data from "it" needs to be put into the array, but I cannot seem to figure this out...
//maybe I am just wrong all together in my thinking

case "comments"
   ask "Enter any comments for your order" titled "Special Instructions"
   put it into fld "commentField" of me
break

case "delete"
send "deleteindex vLine" to grp "DataGrid" in 1
break
end switch
end if
end mouseUp

on LayoutControl pControlRect
set the rect of graphic "Background" of me to pControlRect
end LayoutControl

setprop dgHilite pBoolean
   if pBoolean then
      set the foregroundcolor of me to the dgProp["hilited text color"] of the dgControl of me
   else
      set the foregroundcolor of me to empty
   end if
end dgHilite

-- Utility
getprop dgDataControl
    -- Required by library so that it can locate your control.
    return the long id of me
end dgDataControl

Code: Select all

...
  case "comments"
      ask "Enter any comments for your order" titled "Special Instructions"
      put it into tComment
      ## ALWAYS errorchecking! ;-)
      if tComment = EMPTY then
        exit mouseup
      end if
      
      ## Get the current index
      put the dgIndex of me into tIndex
      
      ## Now get the data associated with this index, which is also an array
      put the dgDataOfIndex[tIndex] of grp "your datagrid here" into tRowData
      
      ## write user input to array
      put tComment into tRowData["comments"]
      
      ## NOW write the data back into the complete DGData and the datagrid will update itself automatically
      set the dgDataOfIndex[tIndex] of grp "your datagrid here" to tRowData
      break
...

Code: Select all

on mouseUp
   put the dgData of grp "DataGrid" into theDataA
   put the dgIndexes of grp "DataGrid" into theIndexes
   
   repeat for each item theIndex in theIndexes
      put theDataA["theIndex"] ["name"] into tData
      put theDataA["theIndex"] ["order"] into tData
      put theDataA["theIndex"] ["total"] into tData
   end repeat
   put tData into fld "someField"
end mouseUp

Code: Select all

on mouseUp
     put the dgData of grp "DataGrid" into tData
  
     ## We create a TAB and CR delimited list from the array
     put empty into tData2
     repeat for each KEY tIndex in tData
          put tData[tIndex]["name"] & TAB after tData2
          put tData[tIndex]["order"] & TAB after tData2
          put tData[tIndex]["total"] & CR after tData2
     end repeat
  
  ## get rid of trailing CR
  delete char -1 of tData2
  put tData2 into fld "someField"
end mouseUp