تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى الكود vb net
#1
السلام عيكم ورحمة الله
 اخواني لدى  3 اداوت  combbox  , listbox , textbox حيث  combobox   تحتوي  على اسماء زبائن و  listbox  تحتوي 
على ارقام الهواتف  اخواني الكود الدي اريده هو 
عند تحديد اسم الزبون فى  combobox  يظهر  رقم هاتفه  تلقائي فى listbox  مع اظهاره فى textbox  
 مع العلم انى لا استعمل قاعدة بيانات
الرد }}}
تم الشكر بواسطة:
#2
يا رياض،

هذا كود ممكن يفيدك
PHP كود :
Public Class Form1

    
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load

        Dim dt 
As New DataTable("PhoneBook")
        
dt.Columns.Add("Name")
        
dt.Columns.Add("Phone")

        
dt.Rows.Add("riad""+123456")
        
dt.Rows.Add("الوادي""0123")

        
ComboBox1.DataSource dt
        ComboBox1
.DisplayMember "Name"
        
ComboBox1.ValueMember "Phone"
        
ComboBox1.SelectedIndex = -1

    End Sub

    
Private Sub ComboBox1_SelectionChangeCommitted(sender As ObjectAs System.EventArgsHandles ComboBox1.SelectionChangeCommitted
        TextBox1
.Text ComboBox1.SelectedItem("Name") & "= " ComboBox1.SelectedItem("Phone")
    
End Sub

End 
Class 
الرد }}}
تم الشكر بواسطة:
#3
شكرا لك اخي الواد ي على هدا المجهود وانا اعتدر منك ولكن هدا الكود لايفيدني
بالطريقة التي اريدها واحيطك علما اني عامل 2 textbox و زر اضافة وهما لاضافة اسم الزبون الى combobox و رقم الهاتف الى
listbox فقط اريد عند تحديد اسم الزبون فى combobox يظهر لي رقم الهاتف الدي اضفته له فى listbox وعند الضغط رقم الهاتف فى
listbox يظهر فى text box التاات
الرد }}}
تم الشكر بواسطة:
#4
يا رياض،

هذا التعديل على أساس اضافة اسم ورقم ولو أضفت الاسم مكرر برقم آخر سيظهر الرقم ضمن الأرقام الخاصة بنفس الاسم في ال ListBox
PHP كود :
Public Class Form1


    Dim dt 
As New DataTable("PhoneBook")


    Private 
Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load

        dt
.Columns.Add("Name")
        
dt.Columns.Add("Phone")

    
End Sub


    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        
If TextBox1.Text.Trim "" Or TextBox2.Text.Trim "" Then
            MsgBox
("تأكد من البيانات")
            Return
        
End If

        
dt.Rows.Add(TextBox1.TextTextBox2.Text)
        
'MsgBox("تمت الإضافة")

        ComboBox1.Items.Clear()
        Dim names = From row As DataRow In dt.Rows Select row("Name") Distinct
        ComboBox1.Items.AddRange(names.ToArray)

        ComboBox1.Text = TextBox1.Text

        TextBox2.Text = ""
        TextBox2.Focus()

    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ViewPhones(ComboBox1.Text)

    End Sub


    Private Sub ViewPhones(nm As String)

        ListBox1.Items.Clear()
        Dim phones = From row As DataRow In dt.Rows Where row("Name") = nm Select row("Phone")
        ListBox1.Items.AddRange(phones.ToArray)

    End Sub


End Class 

تذكر أنك لم تضع مشروعك للتعديل عليه، يعني قاعدين نخبص يمين شمال.
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك اخي الوادي وفيت وكفيت و مبدع بحق
بعد التجربة كل شئ تمام و شكرا لك مرة اخرى
الرد }}}
تم الشكر بواسطة:
#6
يا رياض،

جلست أفكر كيف راح تحتفظ بالبيانات يلي أدخلتها، فقلت طالما لم يطلب فأكيد عندو طريقته الخاصة.
الرد }}}
تم الشكر بواسطة:
#7
(17-06-16, 12:41 AM)الوادي كتب : يا رياض،

جلست أفكر كيف راح تحتفظ بالبيانات يلي أدخلتها، فقلت طالما لم يطلب فأكيد عندو طريقته الخاصة.

هو ليس عنده قاعدة بيانات ولا يحتاج لها في برنامجه

أعتقد انه محتاج فورم اعلاني لارقام محددة فقط يفي بالغرض بتاعه
الرد }}}
تم الشكر بواسطة:



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


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