COMBOBOX dont work with array of dates ?

[avista]

Hi,
I get hsis error

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 10/30/2014, 09:52:24
Error description: Error BASE/2022 Argument error: ALLTRIM
Args:
[ 1] = D 01/01/2014

Stack Calls
===========
Called from: => ALLTRIM( 0 )
Called from: .\source\classes\COMBOBOX.PRG => (b)TCOMBOBOX:DEFAULT( 754 )
Called from: => ASCAN( 0 )
Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:DEFAULT( 754 )
Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:INITIATE( 694 )
Called from: => __OBJSENDMSG( 0 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 287 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 265 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 631 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 876 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 274 )
Called from: combo3d1.prg => MAIN( 15 )

Source file

Code: Select all  Expand view

#include "fivewin.ch"

function main()

   local oDlg, cCombo := ctod("01/03/2014")
   local aItems := { ctod("01/01/2014"), ctod("01/03/2014"), ctod("01/05/2014") }

set cent on

   DEFINE DIALOG oDlg FROM 2, 2 TO 18, 60 TITLE "Test" ;
      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 )

   @ 2, 2 COMBOBOX cCombo ITEMS aItems SIZE 200, 100

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Any solution ?

Best regards

[Marcelo Via Giglio]

Hello,

use a list of string for display the dates in combobox, when choose one of then, change CTOD(<choose date>) the selected date

regards

Marcelo

[FranciscoA]

Hi, try it this way:
local oDlg, cCombo := DtoC(ctod("01/03/2014"))
local aItems := { DtoC(ctod("01/01/2014")), DtoC(ctod("01/03/2014")), DtoC(ctod("01/05/2014")) }
Regards.

[James Bott]

If I remember correctly, comboboxes only work with strings,