+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد (/showthread.php?tid=9291)
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد - dhetos - 16-06-13
بسم الله الرحمن الرحيم
اولا احب اوجه الشكر للاستاذ @@أبورائد@@ والاستاذ sajad
اولا احب اوجه الشكر للاستاذ @@أبورائد@@ والاستاذ sajad
تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وديه انا كنت عاملها بالاكسيس بالدالة ديه
كود :
[align=left][country] & " - محافظة " & [State] & " - مدينة " & [City][/align][SIZE=6]وارجو الاهتمام جزاكم الله كل خير[/SIZE]
مرفق مثال للمطلوب
[ATTACH]3027[/ATTACH]
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد - Sajad - 16-06-13
السلام عليكم
أخي العزيز في حدث SelectIndexChanged للCombobox3 اكتب هذا الكود:
PHP كود :
textBox1.Text=combobox1.Text&" "&combobox2.Text&" "&combobox3.Text
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد - محمود اكرم - 16-06-13
سلام عليكم
إقتباس :مالذي تقصده عنوان لأي شيءلما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد - @@أبورائد@@ - 16-06-13
السلام عليكم ورحمة الله وبركاته
تفضل بعد عمل قاعدة بيانات حسب الهيكلية التي في بداية الكود (مجرب بنجاح في مثال سابق لدي)
PHP كود :
Public Class Form1
'' Database:
'' Country: id, name
'' State : id, name, CountryId
'' City : id, name, CountryId, StateID
Private connection As New SqlClient.SqlConnection("Data Source=.\SQLEXP; Initial Catalog=SGG; Integrated Security=True")
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBoxFill(Me.ComboBox1, "[Country]")
End Sub
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
ComboBoxFill(Me.ComboBox2, "[State]", "[CountryID] = " & ComboBox1.SelectedValue)
End Sub
Private Sub ComboBox2_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectionChangeCommitted
ComboBoxFill(Me.ComboBox3, "[City]", "[CountryID] = " & ComboBox1.SelectedValue & " AND [StateID] = " & ComboBox2.SelectedValue)
End Sub
Private Sub ComboBox3_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectionChangeCommitted
Me.TextBox1.Text = Me.ComboBox1.Text & ", " & Me.ComboBox2.Text & ", " & Me.ComboBox3.Text
End Sub
Sub ComboBoxFill(ByVal combobox As ComboBox, ByVal tablename As String, Optional 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(sql, connection)
Dim table As New DataTable
adapter.Fill(table)
combobox.DataSource = table
combobox.ValueMember = "id"
combobox.DisplayMember = "Name"
combobox.SelectedIndex = -1
End Sub
End Class
السلام عليكم ورحمة الله وبركاته
برجاء النظر على هذا المثال من الاستاذ ابو رائد والاستاذ سجاد - dhetos - 16-06-13
الف شكر يا ابو رائد بس ارجو تحميل المثال لكى تتضح لك الصورة واسف لازعاجك