ok here it goes
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
ev = New EventsInfo
Dim item As ListItem
For Each item In lboxRelevantIssues.Items
If item.Selected Then
Dim dr As DataRow
dr = dsRI.stpSelectRelevantIssues.NewRow
dr("ri_id") = item.Value
dr("ri_description") = item.Text
dsRI.stpSelectRelevantIssues.Rows.Add(dr)
End If
Next
For Each item In cblEvInvolve.Items
If item.Selected Then
Dim dr As DataRow
dr = dsRI.stpSelectInvolvement.NewRow
dr("i_id") = item.Value
dr("i_description") = item.Text
dsRI.stpSelectInvolvement.Rows.Add(dr)
End If
Next
If txtDateFrom.Text = "" Then
txtDateFrom.Text = "01/01/2026"
End If
'-------------------------------JM CODE------------------------------
Dim myFromDate As DateTime = Convert.ToDateTime(txtDateFrom.Text)
'Dim myFromDate As String = txtDateFrom.Text
'-------------------------------END JM CODE------------------------------
If txtDateTo.Text = "" Then
txtDateTo.Text = "01/01/2026"
End If
'-------------------------------JM CODE------------------------------
Dim myToDate As DateTime = Convert.ToDateTime(txtDateTo.Text)
'Dim myToDate As String = txtDateTo.Text
'-------------------------------END JM CODE------------------------------
dgSearchResult.DataSource = ev.GetSearchResult("%" & txtSearchFor.Text & "%", chkAdvSearch.Checked, myFromDate, myToDate, regId, schId, dsRI).Tables("stpEventsSearchResult").DefaultView
dgSearchResult.DataBind()
pnlSeachTitles.Visible = True
End Sub
Public Function GetSearchResult(ByVal srcstring As String, ByVal srctype As Boolean, ByVal dtFrom As Date, ByVal dtTo As Date, ByVal reg As Integer, ByVal sch As Integer, ByVal ri As dsSearch) As DataSet
Dim ds As DataSet = New DataSet
Dim dataAdapter As SqlDataAdapter
Dim conn As SqlConnection
Dim cmd As SqlCommand
' create the conection object for scalar reader to use
conn = New SqlConnection
conn.ConnectionString = ConnectionString
' return the players pk_player
cmd = New SqlCommand
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = conn
cmd.CommandText = "stpEventsSearchResult"
cmd.Parameters.Add("@searchstring", SqlDbType.VarChar)
cmd.Parameters("@searchstring").Value = srcstring
cmd.Parameters.Add("@dtFrom", SqlDbType.DateTime)
cmd.Parameters("@dtFrom").Value = dtFrom
cmd.Parameters.Add("@dtTo", SqlDbType.DateTime)
cmd.Parameters("@dtTo").Value = dtTo
cmd.Parameters.Add("@searchtype", SqlDbType.Int)
cmd.Parameters("@searchtype").Value = CType(srctype, Integer)
cmd.Parameters.Add("@region", SqlDbType.Int)
cmd.Parameters("@region").Value = reg
cmd.Parameters.Add("@school", SqlDbType.Int)
cmd.Parameters("@school").Value = sch
cmd.Parameters.Add("@ri_id", SqlDbType.Int)
cmd.Parameters("@ri_id").Value = 0
cmd.Parameters.Add("@i_id", SqlDbType.Int)
cmd.Parameters("@i_id").Value = 0
If ri.stpSelectRelevantIssues.Rows.Count = 0 And ri.stpSelectInvolvement.Rows.Count = 0 Then
dataAdapter = New SqlDataAdapter(cmd)
dataAdapter.Fill(ds, "stpEventsSearchResult")
Else
If ri.stpSelectRelevantIssues.Rows.Count > 0 Then
Dim i As Integer
For i = 0 To ri.stpSelectRelevantIssues.Rows.Count - 1
cmd.Parameters("@ri_id").Value = ri.stpSelectRelevantIssues.Rows(i)("ri_id")
dataAdapter = New SqlDataAdapter(cmd)
dataAdapter.Fill(ds, "stpEventsSearchResult")
Next
End If
If ri.stpSelectInvolvement.Rows.Count > 0 Then
Dim i As Integer
For i = 0 To ri.stpSelectInvolvement.Rows.Count - 1
cmd.Parameters("@i_id").Value = ri.stpSelectInvolvement.Rows(i)("i_id")
dataAdapter = New SqlDataAdapter(cmd)
dataAdapter.Fill(ds, "stpEventsSearchResult")
Next
End If
End If
Return ds
End Function