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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 133 14-10-17, 03:38 PM
آخر رد: hglogtd
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 123 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 4 134 04-10-17, 12:22 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 143 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  مشكلة فالكوكاييز تشفير بيانات الكوكاييز الماجيك مسعد 1 65 28-09-17, 11:16 AM
آخر رد: الماجيك مسعد
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 178 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 733 14-09-17, 06:24 PM
آخر رد: محمود صالح
  [سؤال] أريد قاعدة بيانات بها تفسير القرآن الكريم tarek 0 70 09-09-17, 02:44 PM
آخر رد: tarek
  [VB.NET] طلب مساعدة في جلب بيانات dubai.eig 1 125 06-09-17, 02:03 AM
آخر رد: سعود
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 542 30-08-17, 02:37 PM
آخر رد: محمود بكرى

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


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