04-08-22, 11:28 AM
Sub load_Glass()
'ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.MultiSelect = False
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
ListView1.Columns.Clear()
ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.ShowGroups = True
SelectAll_stock_in_tbl_Glass()
Dim myrow As DataRow
For Each myrow In dt_stock_in_tbl_Glass.Rows
ListView1.Items.Add(myrow.Item(1).ToString, 4)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
'ListView1.Text = ImageList1.Images.Count.ToString
Next
End Sub
Public dt_stock_in_tbl_Glass As New DataTable
Public Sub SelectAll_stock_in_tbl_Glass()
Dim da As New SqlDataAdapter
dt_stock_in_tbl_Glass.Clear()
da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
da.Fill(dt_stock_in_tbl_Glass)
End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged
'ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.MultiSelect = False
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Font = New Font("Times New Roman", 10, FontStyle.Regular)
ListView1.Columns.Clear()
ListView1.Columns.Add("كود الزجاج", 150, HorizontalAlignment.Center)
ListView1.Columns.Add("الوصف", 250, HorizontalAlignment.Center)
ListView1.Columns.Add("الثمك", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("الفئة", 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.ShowGroups = True
SelectAll_stock_in_tbl_Glass()
Dim myrow As DataRow
For Each myrow In dt_stock_in_tbl_Glass.Rows
ListView1.Items.Add(myrow.Item(1).ToString, 4)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(9))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
'ListView1.Text = ImageList1.Images.Count.ToString
Next
End Sub
Public dt_stock_in_tbl_Glass As New DataTable
Public Sub SelectAll_stock_in_tbl_Glass()
Dim da As New SqlDataAdapter
dt_stock_in_tbl_Glass.Clear()
da = New SqlDataAdapter("select * from tbl_Materials where Ref= '" & TextBox3.Text & "'", Con)
da.Fill(dt_stock_in_tbl_Glass)
End Sub
هذا كود تحميل من جدول الى عرض listview
يوجد textbox اريد ان ابحث بداخلة عن خانة معينة عند الحدث textchanged