تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد
#1
بسم الله الرحمن الرحيم
اولا احب اوجه الشكر للاستاذ @@أبورائد@@ والاستاذ sajad



تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وديه انا كنت عاملها بالاكسيس بالدالة ديه
كود :
[align=left][country] & " - محافظة " & [State] & " - مدينة " & [City][/align]
[SIZE=6]وارجو الاهتمام جزاكم الله كل خير[/SIZE]

مرفق مثال للمطلوب
[ATTACH]3027[/ATTACH]


الملفات المرفقة
.zip   test.zip (الحجم : 247.32 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

أخي العزيز في حدث SelectIndexChanged للCombobox3 اكتب هذا الكود:

PHP كود :
textBox1.Text=combobox1.Text&" "&combobox2.Text&" "&combobox3.Text 

الرد }}}
تم الشكر بواسطة:
#3
سلام عليكم

إقتباس :
لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
مالذي تقصده عنوان لأي شيء
الرد }}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته





تفضل بعد عمل قاعدة بيانات حسب الهيكلية التي في بداية الكود (مجرب بنجاح في مثال سابق لدي)

PHP كود :
Public Class Form1

    
'' Database:
    
''    Countryidname
    
''    State  idnameCountryId
    
''    City   idnameCountryIdStateID

    
Private connection As New SqlClient.SqlConnection("Data Source=.\SQLEXP; Initial Catalog=SGG; Integrated Security=True")

    Private 
Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        ComboBoxFill
(Me.ComboBox1"[Country]")

    
End Sub

    
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox1.SelectionChangeCommitted
        ComboBoxFill
(Me.ComboBox2"[State]""[CountryID] = " ComboBox1.SelectedValue)
    
End Sub

    
Private Sub ComboBox2_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox2.SelectionChangeCommitted
        ComboBoxFill
(Me.ComboBox3"[City]""[CountryID] = " ComboBox1.SelectedValue " AND [StateID] = " ComboBox2.SelectedValue)
    
End Sub

    
Private Sub ComboBox3_SelectionChangeCommitted(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox3.SelectionChangeCommitted
        Me
.TextBox1.Text Me.ComboBox1.Text ", " Me.ComboBox2.Text ", " Me.ComboBox3.Text
    End Sub


    Sub ComboBoxFill
(ByVal combobox As ComboBoxByVal tablename As StringOptional ByVal condition As String "")

        
Dim sql As String "SELECT * FROM " tablename
        
If condition.Trim <> "" Then
            sql 
&= " WHERE " condition
        End 
If

        
Dim adapter As New SqlClient.SqlDataAdapter(sqlconnection)
        
Dim table As New DataTable

        adapter
.Fill(table)

        
combobox.DataSource table
        combobox
.ValueMember "id"
        
combobox.DisplayMember "Name"

        
combobox.SelectedIndex = -1

    End Sub

End 
Class 





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#5
الف شكر يا ابو رائد بس ارجو تحميل المثال لكى تتضح لك الصورة واسف لازعاجك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer
  اتمنى من الاخوان المساعدة بخصوص هذا المثال bidaya 1 437 28-11-22, 04:47 PM
آخر رد: Jounior_P
  [VB.NET] التعديل على المثال AHMED213 1 907 08-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  محتاج التعديل على المثال المرفق new_programer 2 1,155 10-10-20, 08:00 PM
آخر رد: shone1
  ممكن تعديل على هذا المثال اساتذتى خالد كامل1 3 1,511 19-08-20, 09:02 AM
آخر رد: حريف برمجة
  برجاء المساعدة بكود تعدد الصفحات Hazem1 2 1,331 10-07-20, 11:12 PM
آخر رد: WaeLx
  برجاء تعديل على كود الكمية new_programer 4 1,734 26-06-20, 09:54 PM
آخر رد: ابراهيم ايبو
  التعديل علي المثال ahmedbezia 1 1,066 18-06-20, 12:58 AM
آخر رد: ابراهيم ايبو
  برجاء التعديل على المثال المرفق new_programer 6 1,861 05-05-20, 12:03 AM
آخر رد: عبدالله الدوسري
  [VB.NET] ممكن التعديل على المثال بتبديل أدوات ديف اكسبريس إلى أدوات فيجوال بيسك rfhdgd 3 1,925 24-02-20, 03:06 AM
آخر رد: alsalamoni

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


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