[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)

       For i As Integer = 0 To (dt.Rows.Count - 1)
           rowIndex = i
           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"))
       Next

   End Sub