مشكلة ربط الــ TextBox بالــ ListBox

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة ربط الــ TextBox بالــ ListBox
#1
السلام عليكم انا لسه مبتدئه في الفيجوال بيسك وواجهتي مشاكل في البرنامج اللي انا اعمله
المشكله الاولى :::معي تكست بوكس رقم الحارة ولست بوكس باسماء الحارات ,,اذا اخترت الرقم في التكست يظهر لي تلقائيا اسم الحاره  وعملتها بقاعدة if والحمد لله ضبطت معي بس اذا اخترت الحاره مايتغير رقم الحاره يعني العمليه لم تجح معي بالعكس ايضا
المشكلة الثانيه هي case مابتطبق معي وعملتها بنفس الفكره السابقه يعني تكت بوكس في الرقم واللست بوكس فيه الحاله وحطيت الكود التالي في التكست بوكس

Dim x As Integer  

Private Sub TextBox38_TextChanged(sender As Object, e As EventArgs) Handles TextBox38.TextChanged
(x = Val(TextBox38.Text

       Select Case

           Case 1
               ListBox2.Text = "منزل\بيت مستقل"
           Case 2
               ListBox2.Text = "شقه"
           Case 3
               ListBox2.Text = " منشأة مسكونة"
           Case 4
               ListBox2.Text = " صندقة"
           Case 5
               ListBox2.Text = " سكن جماعي\فئات خاصة"
         
       End Select
   End Sub
المشكلة الثالثة ::لما اعمل RadioButton او CheckBox عاوزه البيانات اللي تتخزن في الداتا بيس انا احددها  مش true & checked.



Shy اتمنى المساعده من حضراتكم لاني لسه مبتدئه في الفيجوال بيسك واللي اشتغل فيه هو تبع الفيجوال ستوديو 1012
الرد
تم الشكر بواسطة:
#2
اسف يا طيب بس لو توضح اكثر
لحمد لله رب العالمين على كل شي
الرد
تم الشكر بواسطة:
#3
كود :
Private Sub TextBox38_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox38.TextChanged

    Select Case Val(TextBox38.Text)

        Case 1
            ListBox2.Text = "منزل\بيت مستقل"
        Case 2
            ListBox2.Text = "شقه"
        Case 3
            ListBox2.Text = "منشأة مسكونة"
        Case 4
            ListBox2.Text = "صندقة"
        Case 5
            ListBox2.Text = "سكن جماعي\فئات خاصة"

    End Select

End Sub

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged

    Select Case ListBox2.Text

        Case "منزل\بيت مستقل"
            TextBox38.Text = 1

        Case "شقه"
            TextBox38.Text = 2

        Case "منشأة مسكونة"
            TextBox38.Text = 3

        Case "صندقة"
            TextBox38.Text = 4

        Case "سكن جماعي\فئات خاصة"
            TextBox38.Text = 5

    End Select

End Sub
الرد
تم الشكر بواسطة: انجي عبدالله
#4
مشكوره جداً العزيزه ameerah الكود ضبط معايا وشكرا للاخ حسان مشكورين على ردكم المشكله الاولى احتلت كمان بنفس اسلوب الكود اللي وضحته اميره الله يخليها بس لسه المشكله الثالثه اللي هي لما اعمل RadioButton او CheckBox عاوزه البيانات اللي تتخزن في الداتا بيس انا احددها مش true & checked. يعني مثلا ال RadioButton هو لتحديد النوع الذكر او الانثى لما يترسل في جدول البيانات عاوزاه يظهر بنص ذكر او انثى مش نص true , false
الرد
تم الشكر بواسطة:
#5
المعذرة لم أتنبه لوجود المشكلة الثالثة

بالنسبة لتحديد النوع عل شكل نص عناك طريقتن
الأولى في نفس جملة الاستعلام مثل
كود :
SELECT *, IIF(gender,'ذكر','أنثى') AS [gender]
FROM [table]

الثانية باستخدام جملة الشرط If...Then أو حتى الاختيار Select Case مثل
كود :
If datatable.Rows(i).Item("gender") Then
    MsgBox("ذكر")
Else
    MsgBox("أنثى")
End If
الرد
تم الشكر بواسطة: انجي عبدالله
#6
شكرا شكرا جدا يااخت اميره ameerah انتي بجد رووووووعه تسلمي يارب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عرض التاريخ في TextBox تركي قرمزلي 15 9,790 منذ 1 ساعه مضت
آخر رد: Amir_Alzubidy
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 52 14-08-18, 07:06 PM
آخر رد: elgokr
Photo عندى مشكلة واريد حلها mostafa hasanein 9 148 11-08-18, 10:05 AM
آخر رد: mostafa hasanein
  مشكلة في تصدير بيانات جريد فيو الى ملف الاكسل Marwan9990 9 86 10-08-18, 10:51 PM
آخر رد: Marwan9990
Exclamation مشكلة في البرامج التي لها علاقة ل OpenFileDialog YousefOkasha 3 49 10-08-18, 07:52 PM
آخر رد: elgokr
  مشكلة في كريستال ريبورت اللورد محمود 3 55 10-08-18, 07:49 PM
آخر رد: elgokr
Exclamation مشكلة في ربط المشروع بقاعدة بيانات YousefOkasha 3 72 10-08-18, 07:10 PM
آخر رد: elgokr
  مشكلة في تعبئة TreeView ببيانات من ثلاث جداول SQL princelovelorn 3 48 10-08-18, 10:00 AM
آخر رد: elgokr
  كيف تغيير صيغه الترميز في اداه TextBox معاذ العامري 1 44 09-08-18, 07:26 PM
آخر رد: Finish
  [VB.NET] مشكلة في الكريستال ريبورد في اضهار الريبورت 0theghost0 1 52 05-08-18, 07:34 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم