منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - شباب استدعاء بيانات داخل الكمبو بوكس

الصفحات : 1 2

بسم الله الرحمن الرحيم

شباب كود الاستدعاء بيانات داخل الكمبيو بوكس لاكن بطريقة مختلفة

بمعنى انا عندى
رقم فاتورة
ورقم عميل
واسم العميل
رقم الفاتورة متكرر ممكن يكون 5 فواتير برقم 1 مثلا او 4 فواتير برقم 2
عاوز يقوم باستدعاء اسماء العملاء الى فى 5 فواتير برقم واحد او اسماء العملاء الى فى 4 فواتير برقم 2
داخل الكمبو بوكس بمعنى لو مربع النص فيه رقم 1 او رقم 2 او رقم 3 الى اخره
يقوم بوضع كل اسماء العملاء الى رقم الفاتورة بنفس الرقم الى فى مربع النص

مثلا
1 1 احمد
1 2 محمد
1 3 محمود

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

حاول أن تتعامل مع الفواتير بهذا الاسلوب

PHP كود :

Public Class BillInfo

    Public Property BillNo As Integer
    Public Property ClienNo As Integer
    Public Property ClienName As String

End Class 

الاستخدام

PHP كود :

Private Bills As New List(Of BillInfo)() 

PHP كود :

Bills.Add(New BillInfo With {.BillNo = 1, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 2, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 3, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 4, .ClienNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 5, .ClienNo = 3, .ClienName = "ahmed"})
        For Each bill As BillInfo In Bills
            If Not ComboBox1.Items.Contains(bill.ClienName) Then
                ComboBox1.Items.Add(bill.ClienName)
            End If
        Next 

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

PHP كود :

Public Class Form1

    Private Bills As New List(Of BillInfo)()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Bills.Add(New BillInfo With {.BillNo = 1, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 2, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 3, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 4, .ClientNo = 5, .ClienName = "omar"})
        Bills.Add(New BillInfo With {.BillNo = 5, .ClientNo = 3, .ClienName = "ahmed"})

        For Each bill As BillInfo In Bills
            Dim query = From i In Bills Where i.ClientNo = bill.ClientNo Select i
            If Not ComboBox1.Items.Contains(bill.ClienName & " " & " his tootal Bills = " & query.Count) Then
                ComboBox1.Items.Add(bill.ClienName & " " & " his tootal Bills = " & query.Count)
            End If
        Next
    End Sub
End Class

Public Class BillInfo

    Public Property BillNo As Integer
    Public Property ClientNo As Integer
    Public Property ClienName As String

End Class 

اخى الكريم القيم غير سابتة او الاسماء والارقام غير سابته فا انا اتعامل مع قاعدة بيانات sql server

يا سيدي الفاضل الفكرة واحدة لأن الداتا بيز في النهاية عبارة عن مصفوفة و الدليل انك تستطيع تحويل اي بيانات في الداتا بيز الي DataTable أو Datasource المشكلة فقط انك رابط نفسك بافكار الداتا بيز لا غير و متخيل انها هي الصح و بس

جرب هذا الكود

PHP كود :

CommandText = "SELECT DISTINCT name FROM TableName WHERE NUMBER ='" & NUMBER.TEXT & "'" 

اخى الكريم لم يحدث اى تغير نهائيا

هذا الكود

PHP كود :

Dim cmd As New SqlCommand("SELECT DISTINCT malzmaname FROM mlzama2 WHERE id ='" & TextBox2.Text & "'", con)
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        con.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            Dim nam As String = dr("malzmaname").ToString()
            ComboBox3.Text = nam
        End While
        con.Close()
        dr.Close() 

(21-01-16, 08:51 PM)احمد عبد الحكيم كتب : [ -> ]اخى الكريم لم يحدث اى تغير نهائيا

هذا الكود

PHP كود :

Dim cmd As New SqlCommand("SELECT DISTINCT malzmaname FROM mlzama2 WHERE id ='" & TextBox2.Text & "'", con) If con.State = ConnectionState.Open Then con.Close() End If con.Open() Dim dr As SqlDataReader = cmd.ExecuteReader() While dr.Read() Dim nam As String = dr("malzmaname").ToString() ComboBox3.Text = nam End While con.Close() dr.Close()

استاذي الغالي :
انت تكثر من جُمل Dim لا اعرف لماذا ..
لماذا تكتب الكود

PHP كود :

  ComboBox3.Text = nam 

لماذا لايكون هكذا

PHP كود :

combobox3.items.add(dr("malzmaname").ToString) 

طبعاً قبل جمله البحث هذه قم بتفريغ الـCombo عن طريق
combobo3.items.clear

اخى الفاضل نفس المشكلة فا هو يقوم باحضار اول صف فقط وليست كل الصفوف التى تكون بها الارقام متشابهة

اعتقد انك تستطيع أن تستفيد من الكود التالي بشكل ما
وهذا ما كنت اقصده بتحويل البيانات الي مصفوفة
حاول ان تضبط الكود بما يتناسب مع مشروعك و طبعا لا تنسي اغلاق Connection

PHP كود :

Private Function GetDataTable(connectionString As String, sqlCommandString As String) As DataTable
        Dim connection As SqlConnection = New SqlConnection(connectionString)
        Dim command As New SqlCommand(sqlCommandString, connection)
        Dim adapter As SqlDataAdapter = New SqlDataAdapter()
        adapter.SelectCommand = command

        Dim result As New DataTable With {.Locale = System.Globalization.CultureInfo.InvariantCulture}
        adapter.Fill(result)
        Return result

    End Function 

هنا عليك تمرير البيانات فقط حسب برنامجك

PHP كود :

       ComboBox3..DataSource = GetDataTable(" Pass your connection string", "Pass Your SQL Command ") 

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

يعنى رقم المدرس (1) رقم المزكرة (1) اسم المزكرة (نحو)
رقم المدرس (1) رقم المزكرة (2) اسم المزكرة (بلاغة)
رقم المدرس (2)رقم المزكرة (3) اسم المزكرة (كمياء)
رقم المدرس (2) رقم المزكرة (4) اسم المزكرة (فزياء)

فى الكمبو بوكس لو كان رقم المدرس (1) يتم استدعاء من قاعدة البيانات اسماء المزكرات (نحو - بلاغة)
اذا كان رقم المدرس (2) يتم استدعاء من قاعدة البيانات اسماء المزكرات (كمياء - فيزياء)

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احمد عبد الحكيم

silverlight

احمد عبد الحكيم

silverlight

HASAN6.0

احمد عبد الحكيم

HASAN6.0

احمد عبد الحكيم

silverlight

احمد عبد الحكيم