Code: Select all
@ nRow,110 GET aGets[ n ] VAR aValues SUBSCRIPT n ;
SIZE 120,28 PIXEL OF oDlg
I mean something like this:
Code: Select all
@ nRow,110 DTPICKER aGets[ n ] VAR aValues SUBSCRIPT n ;
SIZE 120,28 PIXEL OF oDlg
Code: Select all
@ nRow,110 GET aGets[ n ] VAR aValues SUBSCRIPT n ;
SIZE 120,28 PIXEL OF oDlg
Code: Select all
@ nRow,110 DTPICKER aGets[ n ] VAR aValues SUBSCRIPT n ;
SIZE 120,28 PIXEL OF oDlg
Code: Select all
for n := 1 to Len( aValues )
nRow += 32
if ValType( aValues[ n ] ) == "D"
aGets[ n ] := MakeDtPicker( oDlg, nRow, aValues, n )
else
@ nRow,110 GET aGets[ n ] VAR aValues SUBSCRIPT n ;
SIZE 120,28 PIXEL OF oDlg
endif
next n
.....
static function MakeDtPicker( oDlg, nRow, aValues, n )
local oGet
@ nRow,110 DTPICKER oGet VAR aValues[ n ] ;
SIZE 120,28 PIXEL OF oDlg
return oGet