>>USE answers IN 0 >> SELECT answers >> for i = 1 to 3 && as example >> lcKeyField = "Q" + trans(i) >> thisform.text42.Value= lcKeyField && to check >> if ThisForm.List1.Value = eval(lcKeyField) && e.g., equal to Q1 >> ThisForm.Label1.Caption = eval("DNC.Q" + trans(i)) && e.g., Q1 >> ThisForm.Label2.Caption = eval("DNC.Q" + trans(i) + "1") && e.g., Q11 >> *... >> endif >>next >> >>Select answers >>>>thanks
>>>for i = 1 to ... >>> lcKeyField = "Q" + trans(i) >>> if ThisForm.List1.Value = eval(lcKeyField) && e.g., equal to Q1 >>> ThisForm.Label1.Caption = eval("DNC.Q" + trans(i)) && e.g., Q1 >>> ThisForm.Label2.Caption = eval("DNC.Q" + trans(i) + "1") && e.g., Q11 >>> ... >>> endif >>>next >>>>>>
>>>> USE answers IN 0 >>>> SELECT answers >>>>&&&&my field name is QUESTION have q1 to q15 >>>> >>>> IF THISFORM.LIST1.Value=answers.QUESTION=Q1 && example >>>>USE DNC IN 0 >>>> SELECT DNC >>>> THISFORM.LABEL1.CAPTION=DNC.Q1 >>>> THISFORM.LABEL2.CAPTION=DNC.Q11 >>>> THISFORM.LABEL3.CAPTION=DNC.Q12 >>>> . >>>> . >>>> . >>>> >>>> else >>>> IF THISFORM.LIST1.Value=answers.QUESTION=Q2 >>>> ******************* >>>> THISFORM.LABEL1.CAPTION=DNC.Q2 >>>> THISFORM.LABEL2.CAPTION=DNC.Q21 >>>> THISFORM.LABEL3.CAPTION=DNC.Q22 >>>> . >>>> . >>>> . >>>> >>>> ENDIF >>>>endif >>>> Select answers >>>>>>>>