To All
I have an array that is created from a table and I use that array as the pick list from a combobox
I have a side button function that adds a new record to the table then adds that new element to the passed array ( by reference ) .
As I have tested .. the passed array is being appended as it was passed by reference .. but the list of values ( aBin array ) does not change when I go back and pull down the list in the Combobox.
As you can see .. I am trying to Refresh all the objects but when I return to the combobox .. aBin is not updated with my new record.
Obviously this has something to do with updating the aBin variable on the Combobox .. any help would be appreciated.
Rick Lipkin
I have an array that is created from a table and I use that array as the pick list from a combobox
aBin := {}
oRsBin:MoveFirst()
Do While .not. oRsBin:eof
cName := oRsBin:Fields("Bin"):Value
AAdd( aBin, cName )
oRsBin:MoveNext()
End Do
oRsBin:CLose()
oRsBin := NIL
...
...
REDEFINE COMBOBOX oBin var cBin ID 171 of oInvt ;
ITEMS aBin UPDATEI have a side button function that adds a new record to the table then adds that new element to the passed array ( by reference ) .
REDEFINE BTNBMP oBTN10 ID 153 of oInvt ; // add bin
PROMPT "Add" CENTER 2007;
ACTION ( _BinView( "A", "", "INV", @aBin, @cBin, oBin ))FUNC _BinView( cMODE, oRsBin, cFrom, aBin, cBin, oBin )
...
...
ACTIVATE DIALOG oUSERS // modal dialog
If cFrom = "INV" .and. cMode = "A"
* xbrowse( abin )
cName := oRsBin:Fields("Bin"):Value
msginfo( cName )
AAdd( aBin, cName )
oRsBin:CLose()
cBin := cName
oBin:ReFresh()
* xbrowse( abin )
ENdif
lOK1 := lOK
RETURN( lOK1 )As I have tested .. the passed array is being appended as it was passed by reference .. but the list of values ( aBin array ) does not change when I go back and pull down the list in the Combobox.
As you can see .. I am trying to Refresh all the objects but when I return to the combobox .. aBin is not updated with my new record.
Obviously this has something to do with updating the aBin variable on the Combobox .. any help would be appreciated.
Rick Lipkin
