[asto]

VB_Coder كتب :السلام عليكم

- إذا كنت تريد إظهار التكست الذي تريد وضع فيه القيمه فقط والباقيه تكون مخفيه , فأستعمل الكود التالي :

كود :

Dim I as Integer

For I = 0 To 100
Text1(I).Visible = False
Next

Text1(Val(Text2.Text)).Visible = True
Text1(Val(Text2.Text)).Text = "12000"

- أما إذا أردت وضع القيمة مباشرة من غير إخفاء أو إظهار للتكستات , فهذا يكفي :

كود :

Text1(Val(Text2.Text)).Text = "12000"

- تحياتي .

اذا ما قمنا داخل الفور بقراءة قاعدة بيانات

فكانه لم يتعرف على قيمة الاندكس و هي Val(Text2.Text) في مثالك