Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Return value from combo

6 views
Skip to first unread message

V@discussions.microsoft.com Alonso V

unread,
Mar 10, 2010, 8:49:01 AM3/10/10
to
I create a rutine for return field from table structure but when value is
return only return number and doesn't return value of the field that I need
it.

I paste my procedure.

PROCEDURE Showfields()
PUBLIC oMiForm
PUBLIC ARRAY astrtable(10,50)

oMiForm = CREATEOBJECT("MiForm")
oMiForm.SHOW
RETURN

DEFINE CLASS MiForm AS FORM
HEIGHT = 100
WIDTH = 205
AUTOCENTER = .T.
CAPTION = "Select Field"
NAME = "MiForm"
SetPoint = ""
SHOWWINDOW = 2


ADD OBJECT cboDescrip AS COMBOBOX WITH ;
ROWSOURCETYPE = 5, ROWSOURCE = "astrtable", ;
HEIGHT = 24, LEFT = 5, TOP = 12, WIDTH = 150, ;
STYLE = 2, ;
BoundColumn = 1, ;
value = 1,;
NAME = "cboDescrip"

ADD OBJECT cmdshow AS COMMANDBUTTON WITH ;
TOP = 10, LEFT = 160, HEIGHT = 27, WIDTH = 50, ;
CAPTION = "Fields", NAME = "cmdshow"

PROCEDURE LOAD
SET SAFETY OFF
USE GETFILE('dbf')
nfields = AFIELDS(astrtable)
ENDPROC

PROCEDURE cmdshow.click
MESSAGEBOX(thisform.cbodescrip.value)
ENDPROC

ENDDEFINE

ENDPROC

Thanks

Dan Freeman

unread,
Mar 10, 2010, 12:11:05 PM3/10/10
to
Return DISPLAYVALUE instead.

Dan

Alonso V brought next idea :

0 new messages