LiveCode Forums.

Code: Select all

on mouseUp
   if the highlite of me then
--do something
      beep
   end if
end mouseUp

Code: Select all

on mouseUp pMouseBtnNum
  if pMouseBtnNum is 1 then
    put the dgHilitedLines of group "PO Orders" into theLine
    put the dgDataOfLine[theLine] of group "PO Orders" into theDataA

    ## Wrong syntax for setting a custom property!
    ## put theDataA["vendor_number"] into the theVendor of me

    ## Correct syntax for setting a custom property! :-)
    set the thePO_Number of me to theDataA["PO_Number"]

    ## Setting the DGTEXT requires TAB and CR delimited text as the paramter.
    ## When supplying an ARRAY like theDataA, set the DGDATA:
    set the dgdata of group "DataGrid 2" to theDataA
  end if
end mouseUp

Code: Select all

put "SELECT * FROM PO_Detail WHERE PO_Number =1"  into tQuery

Code: Select all

global gConID

on mouseUp
    --connectToDB
    
   # get all of the records in your database
   put "SELECT * FROM PO_Detail WHERE PO_Number =1"  into tQuery
  --put "SELECT * FROM po_Detail" into tQuery
    --put "Select StoreTenderOnline.dbo.PO_Detail.*, StoreTenderOnline.dbo.PO_Master.PO_Number As PO_Number1,StoreTenderOnline.dbo.PO_Master.PO_Date,StoreTenderOnline.dbo.PO_Master.PO_Vendor_Number,StoreTenderOnline.dbo.PO_Master.PO_Vendor_Name, StoreTenderOnline.dbo.PO_Master.PO_Status,StoreTenderOnline.dbo.PO_Master.Store_NumberFrom StoreTenderOnline.dbo.PO_Detail Inner Join StoreTenderOnline.dbo.PO_Master On StoreTenderOnline.dbo.PO_Detail.Row_ID = StoreTenderOnline.dbo.PO_Master.Row_ID" into tQuery
    put revDataFromQuery(,,gConID,tQuery) into tRecords
        # this part's not required, but a good idea to check for errors
    if tRecords begins with "revdberr" then 
        answer error "There was a problem accessing the database: " & tRecords
        closeDB gConID
        exit to top
    end if
    # end error check
    --closeDB gConID 
    
    set the dgText of group "DataGrid 2" to tRecords
end mouseUp