Xbrowse : bEditWhen

[Franklin Demont]

Hello ,

Code: Select all  Expand view

:oCol("Type"):nEditType      := EDIT_GET_LISTBOX
:oCol("Type"):aEditListTxt   := {"Numeric","Character","Logical","Date","Memo"}
:oCol("Type"):aEditListBound := {"N","C","L","D","M"}
:oCol("Type"):bEditWhen      := {|oGet|ASCAN(aOld,{|a|a[1]==oBrw:aRow[1]})==0 }
 

The when clausule works not on the combobox , we can select a item and change the input field !

FWH 12.03

Frank

[nageswaragunupudi]

Thanks for pointing out. Please apply this fix.

Please locate the following lines in the METHOD PostEdit

Code: Select all  Expand view

     case ::nEditType == EDIT_LISTBOX

           if xValue != nil
              Eval( ::bOnPostEdit, Self, xValue, If( ::oEditLbx != nil, ::oEditLbx:nLastKey, 0 ) )
              nLastKey   := If( ::oEditLbx != nil, ::oEditLbx:nLastKey, 0 )
              lGoNext    := ( nLastKey == VK_RETURN )
           endif
 

Please replace with:

Code: Select all  Expand view

     case ::nEditType == EDIT_LISTBOX

           if xValue != nil
              if lDirectAssign .or. ::bEditWhen == nil .or. Eval( ::bEditWhen, Self )  // inserted now
                 Eval( ::bOnPostEdit, Self, xValue, If( ::oEditLbx != nil, ::oEditLbx:nLastKey, 0 ) )
              endif // inserted now
              nLastKey   := If( ::oEditLbx != nil, ::oEditLbx:nLastKey, 0 )
              lGoNext    := ( nLastKey == VK_RETURN )
           endif