Константин1969,

Появилась вот такая проблема:Как сделать так, что бы GridView запоминал просмотренные строки.
Пришлось сделать возможность выбора вызываемой формы (окна?). Раньше форма вызывалась так:

<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl='<%# Eval("код", "~/Edit.aspx?name={0}") %>' Target="_blank" Text="Подробно"></asp:HyperLink> - в этом случае просмотренная строка выделялась изменением цвета кнопки HyperLink.

Сейчас пришлось сделать так: заменил HyperLink на LinkButton:

<asp:LinkButton ID="ВыборСтроки" runat="server" CausesValidation="True" EnableViewState="TRUE" CommandName="Select" Text="Выбор"></asp:LinkButton>

обработка нажатия кнопки "Выбор" делается так:

Protected Sub GridReports_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridReports.SelectedIndexChanged

Dim PageName As String
Dim row As GridViewRow = GridReports.SelectedRow
Dim str1 As Label = row.FindControl("label7") 'код
Dim str2 As Label = row.FindControl("label8") 'crimcode
Dim str3 As Label = row.FindControl("label3") 'раздел
Session("sMainCode") = str1.Text
If (Int(str3.Text) = 13 Or Int(str3.Text) = 14 Or Int(str3.Text) = 15) Then
Session("sCrimCode") = str2.Text
PageName = "OpenWindow('edit.aspx?name=" + Trim(str1.Text) + "','Edit');"
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Edit", PageName, True)
ScriptManager.RegisterStartupScript(Me, Me.GetType, "EditCrim", "OpenWindow('EditCrim.aspx','EditCrim');", True)
Else
PageName = "OpenWindow('edit.aspx?name=" + Trim(str1.Text) + "','Edit');"
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Edit", PageName, True)
End If
Dim STW As LinkButton = row.FindControl("ВыборСтроки")
STW.ForeColor = Drawing.Color.DarkMagenta
End Sub

Все работает, но ... строка, которая выбиралась не запоминается. Помогите плиз, разрешить проблему!

Да все равно чего. Хотя бы цвет кнопки "Выбрать" как было при использовании HyperLink. Главное условие, что бы при следующем просмотре таблицы было видно, какие записи просматривались, а какие нет. Насколько я понял, HyperLink работает с чем то вроде Cookies. Во всяком случае при нажатии на кнопку цвет меняется и этот цвет остается и при следующих сеансах работы. У меня заказчики занимаются просмотром отчетов, которые поступают в головной офис из регионов и им очень хочется, что бы было видно просматривали они эти отчеты или нет.

Придется делать через Cookies. Но интересно, как же HyperLink работает?

Константин1969Придется делать через Cookies. Но интересно, как же HyperLink работает?

Этот вариант тоже рассматривал. Он самый простой. Проблема в том, что эти отчеты прочитывают как минимум 5 человек и каждый хочет, что бы было запоминание просмотренных им строк.

ПаганельКонстантин1969Сейчас пришлось сделать так: заменил HyperLink на LinkButtonа кстати зачем?

В зависимости от раздела отчета открываются разные формы. Никакого варианта кроме описанного выше я не нашел.

skyANAПаганельпропущено...
а кстати зачем?+1

Заменили открытие нового окна по ссылке на открытие через регистрацию скрипта на сервере: ScriptManager.RegisterStartupScript.
Как-то через одно место это выглядит.

Может быть, но я не знаю способ прочитать строку в GridView кроме как так:

Protected Sub GridReports_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridReports.SelectedIndexChanged

Dim PageName As String
Dim row As GridViewRow = GridReports.SelectedRow
Dim str1 As Label = row.FindControl("label7") 'код
Dim str2 As Label = row.FindControl("label8") 'crimcode
Dim str3 As Label = row.FindControl("label3") 'раздел
Session("sMainCode") = str1.Text
If (Int(str3.Text) = 13 Or Int(str3.Text) = 14 Or Int(str3.Text) = 15) Then - если разделы отчета 13,14,15, то открываем форму EditCrim
Session("sCrimCode") = str2.Text
PageName = "OpenWindow('edit.aspx?name=" + Trim(str1.Text) + "','Edit');"
ScriptManager.RegisterStartupScript(Me, Me.GetType, "EditCrim", "OpenWindow('EditCrim.aspx','EditCrim');", True)
Else
'если нет, то форму Edit
PageName = "OpenWindow('edit.aspx?name=" + Trim(str1.Text) + "','Edit');"
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "Edit", PageName, True)
End If
Dim STW As LinkButton = row.FindControl("ВыборСтроки")
STW.ForeColor = Drawing.Color.DarkMagenta
End Sub


Мне проще было бы использовать HyperLink, но с SelectedIndexChanged он не работает.

skyANAКонстантин1969, Вам событие GridView.RowDataBound не знакомо?

Попробую сделать так. Должно получиться. Спасибо за подсказку!

skyANAКонстантин1969, Вам событие GridView.RowDataBound не знакомо?

Не получилось: e.row.cells(n).NavigeteUrl - не понимает. Можно e.Cells(n).Text

skyANAКонстантин1969пропущено...


Не получилось: e.row.cells(n).NavigeteUrl - не понимает. Можно e.Cells(n).TextХм. Как же Вы дошли до сл. кода:
?

Так пробовал первым делом. Результат тот же.

Получилось наконец-то. Всем спасибо за помощь! Вот фрагмент:

Protected Sub GridReports_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridReports.RowDataBound
Try
Dim row As GridViewRow = GridReports.SelectedRow

If e.Row.RowType = DataControlRowType.DataRow Then

Dim Раздел As Label = CType(e.Row.FindControl("Label3"), Label)
Dim Кнопка As HyperLink = CType(e.Row.FindControl("HyperLink1"), HyperLink)
Dim Код As Label = CType(e.Row.FindControl("Label7"), Label)
Dim CrimCode As Label = CType(e.Row.FindControl("Label8"), Label)
'сделать вторую кнопку HyperLink и в зависимости от раздела кнопки выключать
If Раздел.Text = "13" Then
Кнопка.NavigateUrl = String.Format("~/EditCrim.aspx?name={0}", CrimCode.Text)
Else
Кнопка.NavigateUrl = String.Format("~/Edit.aspx?name={0}", Код.Text)
End If

End If
Catch ex As System.IO.IOException
' Code that reacts to IOException.
Catch ex As InvalidCastException

Catch ex As NullReferenceException

Catch ex As Exception

End Try



End Sub