>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.