[mnooooo]

gggggggggggg

---

If TextBox2.Text <> "" Then
Dim see As New OleDbCommand("SELECT per_id as [Serial], [shipment_id] as [Shipment No], date as [Date], shipping_com_id as [Shipping Company], Staff_ID as [Staff ID] , [Staff_name] as [Staff Name], Staff_namea as [Arabic Name] , Comment as [Comment] FROM [Registeration] WHERE [shipment_id] = '" & TextBox2.Text & "'", DBconnection)
Dim adap As New OleDbDataAdapter
Dim dt As New DataTable
Dim sou As New BindingSource
adap.SelectCommand = see
adap.Fill(dt)
sou.DataSource = dt
DataGridView1.DataSource = sou
adap.Update(dt)
adap.Dispose()
see.Dispose()
end if


هذا كود البحث حقي وهو يعرض النتائج في داتا جرد فيو