تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيف أعرض بيانات مستخدم عبر الإيميل ؟ الراجية عفو ربها 13 280 13-12-17, 12:56 PM
آخر رد: الراجية عفو ربها
  [سؤال] نقل بيانات من داتا جريد فيو إلى داتا جريد فيو مرتبطه بداتا باوند mawd 4 104 12-12-17, 03:37 PM
آخر رد: Rabeea Qbaha
  اظهار بيانات تقرير hglogtd 4 67 10-12-17, 10:29 PM
آخر رد: hglogtd
  [VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد محمد اسماعيل 1 40 10-12-17, 10:16 PM
آخر رد: حريف برمجة
  [سؤال] كيف أعرض بيانات الداتابيس بناءًا على listview selected item Marwa1997 3 113 10-12-17, 09:18 PM
آخر رد: حريف برمجة
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 10 436 06-12-17, 08:01 PM
آخر رد: مختار2
  [VB.NET] سؤال في قاعدة بيانات sql بالفجوال ستوديو hglogtd 2 78 29-11-17, 12:30 AM
آخر رد: hglogtd
  [سؤال] كيف أضيف بيانات من جدول محدد في تقرير وطباعتة naaserhrb 6 134 28-11-17, 09:57 PM
آخر رد: naaserhrb
  [VB.NET] تقارير وإحصائيات vb.net مع قاعدة بيانات SQL2008R2 محمد بوقزاحة 0 123 12-11-17, 01:10 PM
آخر رد: محمد بوقزاحة
  كيف افرغ قاعدة بيانات Access ahmedmansour 1 61 11-11-17, 09:14 PM
آخر رد: حريف برمجة

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


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