من میخواهم آرایه2بعدی که شامل 1000 سطر و 2 ستون است رو با استفاده از ادیت تکست نام و شماره پر کنم
من دو تا ادیت تکست به نام ........ ( نام دستگاه ) و(شماره دستگاه) دارم و از کاربر میخوام اونارو پر کنه
من میخوام نام دستگاه که از کاربر گرفتم رو داخل 1000/1 قرار بدم و شماره ای که از کاربر مگیرم داخل 1000/2 قرار بدم
و 1 بعد 1000/1 را به کاربر در اسپینر نمایش بدهم
If Editname.Text="" Then
ToastMessageShow("لطفا نام دستگاه را وارد کنید",False)
Else If Editshomare.Text="" Then
ToastMessageShow("لطفا شماره دستگاه را وارد کنید",False)
Else
name = Editname.Text
shomare = Editshomare.Text
For x = 0 To 999
If Main.id (x,1)= "" Then
Main.id (x,1) = name
Main.id (x,2) = shomare
End If
Exit
Next
End If
id ارایه دو بعدی بنده است name و shomare متغیر های بنده هستند
سوال
hoseintak 0
من میخواهم آرایه2بعدی که شامل 1000 سطر و 2 ستون است رو با استفاده از ادیت تکست نام و شماره پر کنم
من دو تا ادیت تکست به نام ........ ( نام دستگاه ) و(شماره دستگاه) دارم و از کاربر میخوام اونارو پر کنه
من میخوام نام دستگاه که از کاربر گرفتم رو داخل 1000/1 قرار بدم و شماره ای که از کاربر مگیرم داخل 1000/2 قرار بدم
و 1 بعد 1000/1 را به کاربر در اسپینر نمایش بدهم
If Editname.Text="" Then ToastMessageShow("لطفا نام دستگاه را وارد کنید",False) Else If Editshomare.Text="" Then ToastMessageShow("لطفا شماره دستگاه را وارد کنید",False) Else name = Editname.Text shomare = Editshomare.Text For x = 0 To 999 If Main.id (x,1)= "" Then Main.id (x,1) = name Main.id (x,2) = shomare End If Exit Next End If
id ارایه دو بعدی بنده است name و shomare متغیر های بنده هستند
ممنون میشم کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.