تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
الرد }}}}
تم الشكر بواسطة:
#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
الف شكر يا ابو رائد بس ارجو تحميل المثال لكى تتضح لك الصورة واسف لازعاجك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 127 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  رساله الي الاستاذ الفاضل mstfa 1991 khaled12345 1 112 20-07-17, 09:51 PM
آخر رد: Amir_alzubidy
  مساعدة في تصحيح المثال المرفق anes 2 132 02-07-17, 02:04 PM
آخر رد: anes
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 17 599 30-05-17, 06:43 PM
آخر رد: الماجيك مسعد
  برجاء المساعدة في حل مشكلة المشروع المرفق لانواع بحث مختلفة khaled12345 7 253 29-05-17, 09:37 PM
آخر رد: khaled12345
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 140 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  برجاء المساعده من حضراتكم mohamedfisal2016 5 237 30-03-17, 03:38 PM
آخر رد: حريف برمجة
Exclamation [سؤال] كود واحد موقف شغلي كله برجاء المساعده metalsoft 4 1,558 08-03-17, 03:01 PM
آخر رد: Basel_hmd
  الرجاء النظر لهذا السؤال بخصوص الإندكس abdulla2 1 177 08-03-17, 08:33 AM
آخر رد: مساعدة
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 420 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra

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


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