با درود تو این تاپیک برنامه رو DL کن
https://barnamenevis.org/showth...415#post491415
Private Sub fname_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fname.KeyUp
Try
ol_cm = New OleDbCommand(" select top 10 a_tabdil.id ,fname,name from factor_shali,a_tabdil,c_keshavarz where factor_shali.id = a_tabdil.id_shali and idkeshavarz = c_keshavarz.id and fname like '" & (fname.Text.ToString) & "%' ", ol_cn)
ol_da = New OleDbDataAdapter(ol_cm)
ds = New DataSet
ol_da.Fill(ds, "a_tabdil")
DataGridView1.DataSource = ds.Tables("a_tabdil")
If fname.Text = "" Then
bazsazi()
End If
Catch ex As Exception
bazsazi()
End Try
idr.Text = ""
Id_f.Text = ""
End Sub
تو کد بالا
دقت کن سوال داشتی در خدمتم