تقييم الموضوع :
  • 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)الوادي كتب : يا رياض،

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعدة في اصلاح بعض الاخطاء trakktour 18 179 أمس, 05:51 PM
آخر رد: trakktour
  طلب مساعدة في اضافة save & restore trakktour 8 139 أمس, 03:16 AM
آخر رد: trakktour
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 83 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 385 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 63 12-02-17, 08:06 PM
آخر رد: مساعدة
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 100 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 86 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 126 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 219 24-01-17, 08:32 PM
آخر رد: gmailali

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


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