تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض بيانات موظف على listview
#1
السلام عليكم ... لدي مشكلة صغيرة يا ريت تساعدوني على حلها ...
انا لدي textbox و أكتب عليها رقم الموظف بحيث تطلعلي بياناته على listview ..
اشتغل الكود الحمد لله ... لكني ربما احتاج لأكثر من موظف .. عندما اقوم بكتابة رقم الموظف الثاني يختفي الموظف الاول من listview و يظهر مكانه الموظف الثاني الذي قمت بإدخال رقمه
المطلوب هو عندما ادخل رقم موظف آخر يعرضلي بياناته في سجل اخر على listvew تحت الوظف الاول و هكذا
...



هذا هو الكود المستخدم
كود :
Private Sub t2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox13.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Dim s As String = " SELECT EMPL_MAS.EMPL_NAME_LOC, Departments.DEPT_NAME_LOC, DIVISION.DIV_NAME_LOC FROM (Departments INNER JOIN EMPL_MAS ON Departments.DEPT_CODE = EMPL_MAS.DEPT_CODE) INNER JOIN DIVISION ON EMPL_MAS.DIV_CODE = DIVISION.DIV_CODE where EMPL_CODE=" + TextBox13.Text
            cn.Open()
            Dim cmd1 As New OleDbCommand(s, cn)
            Dim dr12 As OleDbDataReader = cmd1.ExecuteReader
            ListView1.Items.Clear()
            Dim ss1 As String
            Dim da21 As New OleDb.OleDbDataAdapter
            Dim dr21 As DataRow
            Dim dt21 As DataTable
            Dim DS1 As New DataSet
            ListView1.Items.Clear()
            da21 = New OleDb.OleDbDataAdapter(s, cn)
            DS1 = New DataSet
            da21.Fill(DS1, "s")
            dt21 = DS1.Tables("s")
            '*************************************
            If dr12.Read Then
                da21 = New OleDb.OleDbDataAdapter(s, cn)
                DS1 = New DataSet
                da21.Fill(DS1, "s")
                dt21 = DS1.Tables("s")
                Dim i As Integer
                For i = 0 To dt21.Rows.Count - 1
                    Dim litem As New ListViewItem
                    dr21 = dt21.Rows.Item(i)
                    On Error Resume Next
                    litem.Text = dt21.Rows(i).Item(dr12!EMPL_NAME_LOC)
                    litem.SubItems.Add(dr12!EMPL_NAME_LOC)
                    litem.SubItems.Add(TextBox13.Text)
                     ListView1.Items.Add(litem)
                Next i
            End If
            dr12.Close()
            cn.Close()
        End If
    End Sub
شاكر حسن تعاونكم مسبقا
الرد
تم الشكر بواسطة:
#2
يجب عليك في عملية الادخال ان تقوم بتحديد الصف والعمود
لكنك تعتمد على الصف الاول في عملية الادخال مع تحريك الاعمدة
الرد
تم الشكر بواسطة: ahmed fathi
#3
من الكود احذف هذا السطر:
كود :
ListView1.Items.Clear()
لأنه يفرغ أداة الـ Listviewe من عناصرها في كل مرة تجري فيها البحث

***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: المشاعر , ahmed fathi
#4

شكرا لكم .... لقد قمت بحذف هذا السطر ListView1.Items.Clear() و أشتغل 100%

الآن نأتي لسؤال آخر ... كيف أقوم بإدخال بيانات الموجودة في ListView1 إلى جدول خاص بها فقط ... أى البيانات الموجودة في ListView1 أريد تخزينها في جدول

لو فرضنا أن اسم الجدول ... tb1 >>>و الحقول t1,t2,t3,t4,t5
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 48 أمس, 09:22 PM
آخر رد: elgokr
  استدعاء بيانات العميل الى جدول الفاتورة mostafa nada 8 179 19-02-19, 11:54 AM
آخر رد: asemshahen5
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 374 17-02-19, 02:31 PM
آخر رد: sendbad100
  عرض بيانات في الليست فيو Emam emam 5 152 01-02-19, 11:13 PM
آخر رد: asemshahen5
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 275 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تصدير بيانات الى إكسيل محمد بوقزاحة 3 136 26-01-19, 11:29 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 97 24-01-19, 03:52 PM
آخر رد: sendbad100
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 12 1,990 23-01-19, 07:21 PM
آخر رد: elgokr
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 429 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  [SQL] اعادة تشغيل قاعدة بيانات SonBasel 0 111 01-01-19, 10:36 AM
آخر رد: SonBasel

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


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