04-06-15, 05:27 PM
السلام عليكم
اريد اظهار الاسم مع البيانات متى بدا العمل ؟
ومتى خرج من العمل ؟
اكتب الاسم في التكس بوكس ويظهر في قريد لست فيوا
خبروني ويش الخطأ ؟؟
اريد اظهار الاسم مع البيانات متى بدا العمل ؟
ومتى خرج من العمل ؟
اكتب الاسم في التكس بوكس ويظهر في قريد لست فيوا
كود :
Public Class Form2
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Try
ConnDB()
cmd.CommandText = "Select * from In_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
dr.Close()
dr = cmd.ExecuteReader
While (dr.Read())
ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_In").ToString, dr("Way_Late").ToString)
End While
cmd.CommandText = "Select * from Out_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
dr.Close()
dr = cmd.ExecuteReader
While (dr.Read())
ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_Out").ToString, dr("Way_Late").ToString)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ListViewMakeRow(ByVal listview1 As ListView, ByVal item_title As String, ByVal ParamArray subitem_titles() As String)
' Make the item.
Dim new_item As ListViewItem = listview1.Items.Add(item_title)
' Make the sub-items.
For i As Integer = subitem_titles.GetLowerBound(0) To subitem_titles.GetUpperBound(0)
new_item.SubItems.Add(subitem_titles(i))
Next i
End Sub
End Class