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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 141 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 60 19-05-17, 12:45 PM
آخر رد: Adrees
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 121 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  نسخ بيانات جدول الى جدول كرم ابوهشام 1 50 13-05-17, 07:32 PM
آخر رد: Amir_alzubidy
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 286 11-05-17, 11:54 AM
آخر رد: khaled12345
  كود ربط الصورة مع بيانات الموظف a.baomar 3 88 09-05-17, 02:25 PM
آخر رد: أبووسم
  كيف اظهر بيانات داتا جريد فيو مباشرة على كريستال ريبورت samawi 4 168 07-05-17, 04:30 PM
آخر رد: Adrees
  نسخ بيانات الجدول salah mansour 4 104 07-05-17, 12:08 AM
آخر رد: salah mansour
  لو سمحتم كيف اضيف بيانات داتا جريد فيو الى داتا تيبل samawi 8 160 26-04-17, 03:03 PM
آخر رد: samawi

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


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