>Dear Experts, I have this data
>
>
>CREATE CURSOR table1(sno n(2),names c(10))
>INSERT INTO table1 values(1,'JUN')
>INSERT INTO table1 values(2,'ERIC')
>INSERT INTO table1 values(3,'BORIS')
>INSERT INTO table1 values(4,'CETIN')
>INSERT INTO table1 values(5,'TUSHAR')
>INSERT INTO table1 values(6,'VILHELM')
>
>
>
>I want to show above data with OptionGroup as shown in attachment.
>
>please help
CREATE CURSOR table1(sno n(2),names c(10))
INSERT INTO table1 values(1,'JUN')
INSERT INTO table1 values(2,'ERIC')
INSERT INTO table1 values(3,'BORIS')
INSERT INTO table1 values(4,'CETIN')
INSERT INTO table1 values(5,'TUSHAR')
INSERT INTO table1 values(6,'VILHELM')
LOCAL AForm AS Form
m.AForm = CREATEOBJECT("Form")
m.AForm.AddObject("Options", "OptionGroup")
WITH m.AForm.Options AS OptionGroup
.AutoSize = .T.
.ButtonCount = RECCOUNT()
SCAN
WITH .Buttons[RECNO()] AS OptionButton
.AutoSize = .T.
.Caption = TRANSFORM(table1.sno) + "." + ALLTRIM(table1.names)
ENDWITH
ENDSCAN
.Visible = .T.
ENDWITH
m.AForm.Show(1)
m.AForm = .NULL.
----------------------------------
António Tavares Lopes