31-08-14, 02:55 PM
السلام عليكم ... لدي مشكلة صغيرة يا ريت تساعدوني على حلها ...
انا لدي textbox و أكتب عليها رقم الموظف بحيث تطلعلي بياناته على listview ..
اشتغل الكود الحمد لله ... لكني ربما احتاج لأكثر من موظف .. عندما اقوم بكتابة رقم الموظف الثاني يختفي الموظف الاول من listview و يظهر مكانه الموظف الثاني الذي قمت بإدخال رقمه
المطلوب هو عندما ادخل رقم موظف آخر يعرضلي بياناته في سجل اخر على listvew تحت الوظف الاول و هكذا ...
هذا هو الكود المستخدم
شاكر حسن تعاونكم مسبقا
انا لدي 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