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