[mona626]

تقريبا وجدت الحل بس بيعطيني نتيجة اول بحث فقط 

هذا الكود 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim sqlStr As String = "SELECT * FROM MonitoringReports WHERE EmployeeID = '" & TextBox9.Text & "' and LicensesNumber='" & TextBox1.Text & "'"
       Dim dataAdapter As New SqlDataAdapter(sqlStr, con)
       dataAdapter.Fill(dt)
       TextBox8.Text = CStr(dt.Rows(rowIndex)("EmployeeName"))
       TextBox9.Text = CStr(dt.Rows(rowIndex)("EmployeeID"))
       DateTimePicker2.Value = CStr(dt.Rows(rowIndex)("DateOfEntry"))
       TextBox1.Text = CStr(dt.Rows(rowIndex)("LicensesNumber"))
       TextBox2.Text = CStr(dt.Rows(rowIndex)("LicensesName"))
       TextBox5.Text = CStr(dt.Rows(rowIndex)("LicensesType"))
       ComboBox6.Text = CStr(dt.Rows(rowIndex)("LicensesCase"))
       ComboBox1.Text = CStr(dt.Rows(rowIndex)("Location"))
       ComboBox2.Text = CStr(dt.Rows(rowIndex)("Street"))
       TextBox3.Text = CStr(dt.Rows(rowIndex)("NearOrNextTo"))
       ComboBox3.SelectedValue = CStr(dt.Rows(rowIndex)("ActionType"))
       ComboBox7.SelectedValue = CStr(dt.Rows(rowIndex)("ActionNumber"))
       ComboBox5.SelectedValue = CStr(dt.Rows(rowIndex)("FineOrWarrningType"))
       TextBox4.Text = CStr(dt.Rows(rowIndex)("Notes"))
       DateTimePicker1.Value = CStr(dt.Rows(rowIndex)("DateOfFollow"))

   End Sub