OnRowDblClick

[Arthur Casse]

Can anyone give me the correct syntax for OnRowDblClick or point me to an example of OnRowDblClick being used in a script. I have the complete Xbasic manual printed out but was unable to find it except a reference to it on page 71.

Thanks!

[nick marodis]

RE: OnRowDblClick

Arthur, you can do a lot of different things with the OnRowDblClick here is an Example of write a record from one child table to another.

Hope if gives you a few idea's

Nick





dim global drvid as c
dim global drvname as c
dim rotbl as p
dim drtbl as p
dim coun as n
dim indx as p
dim query.description as c
dim query.order as c
dim query.filter as c
dim query.options as c
dim rnumber as n


drtbl=table.current(2) 'Child table 1

query.description="drvrollA"
query.fitler=var->drvid
query.options="M"
indx=drtbl.query_create()
coun=indx.records_get()
drtbl.fetch_Last()
if coun =0 then
coun=1
end if
coun=drtbl.stop+1

drtbl.fetch_first()

rotbl=table.current(3)'child table 2

drtbl.enter_begin()
drtbl.stop=coun
drtbl.cust_id=rotbl.cust_id
drtbl.caller=rotbl.caller
drtbl.csize=rotbl.csize
drtbl.serdate=rotbl.serdate
drtbl.disp=rotbl.disp
drtbl.driver=var->drvname
drtbl.driverid=var->drvid
drtbl.company_na=rotbl.company_name
drtbl.location=rotbl.location
drtbl.ddate=rotbl.ddate
drtbl.notes=rotbl.notes
drtbl.ctime=rotbl.ctime
drtbl.typeofserv=rotbl.typeofservice
drtbl.page=rotbl.page
drtbl.grid=rotbl.grid
drtbl.country=rotbl.country
drtbl.city=rotbl.city
drtbl.workorder=rotbl.workorder
drtbl.containernum=rotbl.containernum
drtbl.lik="X"
drtbl.complete=.f.
drtbl.landfill=rotbl.landfill
drtbl.zip=rotbl.zip
drtbl.xycod=rotbl.xycod
drtbl.enter_end(.t.)

rotbl.change_begin()
rotbl.extit=.t.
rotbl.change_end(.t.)

:Driverrouteform:Browse3.Resynch()
sys_send_keys("{ctrl-W}")

[drgarytraub]

RE: OnRowDblClick

Why not just put a message in the OnRowDblClick event like this:

ui_msg_box("You just double clicked this line","")

then start the form and double click on a row and the message will appear. This simple example, will give you a feel for what the event can do.

[Arthur Casse]

RE: OnRowDblClick

Gary,

So then OnRowDblClick is an event? I have version 4.03 and I can't find it in my events list for my form. Any ideas?

Thanks!

[Arthur Casse]

RE: OnRowDblClick

Nick,

Thanks for your response. I can't find the OnRowDblClick in the events list on my form. I have version 4.03 - any ideas? Thanks!

[Sandy Garrett]

RE: OnRowDblClick

OnRowDblClick should be an Action available to the Browse embedded in a form,

[martinwcole]

RE: OnRowDblClick

if BROWSE1:THIS.ACTIVE()="description"

description is a column on browse1 - this permits me to react to a particular column on a browse

although i usually use the feature to load a form for the child record to use for editing it.

[drgarytraub]

RE: OnRowDblClick

Arthur:

In design mode of the form, place the cursor on the embedded browse. Then, right click and go into Actions. Select OnRowDblClick from the 'Script' lookup.

Hope this is clear. Good luck!

Gary

[Arthur Casse]

RE: OnRowDblClick

Gary,

Thanks! I was looking under Actions on the Form! Novices - ain't we great ? :)

[Arthur Casse]

RE: OnRowDblClick

Thanks Sandy !

[Arthur Casse]

RE: OnRowDblClick

Martin,

That's my intended use for it too. Would "description" then be the name of the form I'm calling?

Thanks!

[martinwcole]

RE: OnRowDblClick

''this is an example of where i go to a form to edit a child record i select from an embedded browse
cnum is a global variable, customer number is my application wide linking field. the operator is on the row for the record she wants to edit

parentform.commit()
cnum = parentform:customer_number.value
form.view("edithearaid")

'when edithearaid loads it will fetch cnum
'this is the script for the onit event for edithearaid
tbl=table.current()
tbl.index_primary_put("custnmbr")
tbl.fetch_find(cnum)
parentform.resynch()
''******************************
these two examples are on a completely different form - Invoices - where the operator wants to search on each column of the browse

if BROWSE1:THIS.ACTIVE()="description"
namel=ui_get_text("Enter search value for DESCRIPTION","")
if namel=""
end
end if
namel="*" + namel + "*"
query.filter = "smatch((invoices->description),(var->namel))"
idx=tbl.query_create()
recs=idx.records_get()
if recs > 0
tbl.fetch_first()
parentform.resynch()
end
else
ui_msg_box("Sorry! Try Again!","No Records Found Containing This Value")
end
end if
end if
''************************************
if BROWSE1:THIS.ACTIVE()="invoice"
namel=ui_get_text("Enter search value for INVOICE NUMBER","")
if namel=""
end
end if
namel="*" + namel + "*"
query.filter = "smatch((invoices->invoicenmbr),(var->namel))"
idx=tbl.query_create()
recs=idx.records_get()
if recs > 0
tbl.fetch_first()
parentform.resynch()
end
else
ui_msg_box("Sorry! Try Again!","No Records Found Containing This Value")
end
end if
end if
''******************************************

[Arthur Casse]

RE: OnRowDblClick

Thanks Martin! I've got it working! I appreciate your help!