Hi All,
Environment 4D v15.6 client server
I have an array based list box where there are 3 arrays. Only array 3 can be
entered
Under the list box object I have the following code
Case of
: (Form event=On Load)
//EDIT ITEM(DefaultValue_ar;1)
: (Form event=On Double Clicked)
C_LONGINT($ColumnNumber_l;$row_l)
LISTBOX GET CELL POSITION(*;"SelectListBox";$ColumnNumber_l;$row_l)
If ($row_l>0) & ($row_l<=Size of array(DefaultValue_ar))
EDIT ITEM(DefaultValue_ar;$row_l)
End if
End case
Under the thirst column, I have the following code
C_LONGINT($Column_l;$Row_l)
LISTBOX GET CELL POSITION(SelectListBox;$Column_l;$Row_l)
MM_ValidateAmount is a method that checks to see if amounts are in the
appropriate range
Case of
: (Form event=On Data Change)// I have tried on losing focus as well
If (DefaultValue_ar{$Row_l}>0)
If (MM_ValidateAmount
(vd_metalDate;->DefaultValue_ar{$Row_l};Metal_atxt{$Row_l};MarketName_atxt{$Row_l}))
If ($Row_l<Size of array(DefaultValue_ar))
EDIT ITEM(DefaultValue_ar;$Row_l+1)
Else
GOTO OBJECT(bAdd)
End if
Else
EDIT ITEM(DefaultValue_ar;$Row_l)
End if
End if
End case
What is happening is that I double click into the first cell and enter a 1. I
am moved to the next entry cell. If I double click into a cell I can enter any
number I desire, but tabbing through by the edit item command allows only 1
character to be entered.
Any ideas?
Thanks and regards
------------------------------------------------------------------------------------------------
Chuck Miller Voice: (617) 739-0306
Informed Solutions, Inc. Fax: (617) 232-1064
mailto:cjmiller<AT SIGN>informed-solutions.com
Brookline, MA 02446 USA Registered 4D Developer
Providers of 4D and Sybase connectivity
http://www.informed-solutions.com
------------------------------------------------------------------------------------------------
This message and any attached documents contain information which may be
confidential, subject to privilege or exempt from disclosure under applicable
law. These materials are intended only for the use of the intended recipient.
If you are not the intended recipient of this transmission, you are hereby
notified that any distribution, disclosure, printing, copying, storage,
modification or the taking of any action in reliance upon this transmission is
strictly prohibited. Delivery of this message to any person other than the
intended recipient shall not compromise or waive such confidentiality,
privilege or exemption from disclosure as to this communication.
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
