Clean up

[Larry Charlton]

Thanks to S. Justin Gengo, MCP, I think I have a viable editing senario that
would enable searching etc. The general flow goes like this:
Start on a search screen. Select a record. Edit page is displayed. On
save or cancel the user is returned to the search screen. I'm doing this by
creating two user controls (Search and Edit) and placing them in a multiview
with two views. I've got it working but there's a few things that don't seem
very clean to me and was wondering if there's a better .net ish way to do
this.

The page that holds the views:
Partial Class _Default
Inherits System.Web.UI.P age

Protected Sub Search1_Selecte d(ByVal sender As Object, ByVal e As
System.EventArg s) Handles Search1.Selecte d
Edit2.RecordId = Search1.RecordI d
Edit2.Edit()
MultiView1.Acti veViewIndex = 1
End Sub

Protected Sub Edit2_Finished( ByVal sender As Object, ByVal e As
System.EventArg s) Handles Edit2.Finished
Search1.Refresh ()
MultiView1.Acti veViewIndex = 0
End Sub
End Class
The page that searches:
Partial Class Search
Inherits System.Web.UI.U serControl
Dim _recordId As Integer
Public ReadOnly Property RecordId() As Integer
Get
Return _recordId
End Get
End Property
Protected Sub GridView1_Selec tedIndexChanged (ByVal sender As Object, ByVal
e As System.EventArg s) Handles GridView1.Selec tedIndexChanged
Dim row As GridViewRow = GridView1.Selec tedRow
_recordId = CInt(row.Cells( 1).Text)
RaiseEvent Selected(Me, New EventArgs)
End Sub
Public Event Selected As EventHandler
Public Sub Refresh()
GridView1.DataB ind()
End Sub
End Class
The page that edits
Partial Class Edit
Inherits System.Web.UI.U serControl
Public Property RecordId() As Integer
'How do I not use an extra textbox that's hidden?
Get
If IsNumeric(TextB ox6.Text) Then
Return CInt(TextBox6.T ext)
Else
Return 0
End If
End Get
Set(ByVal value As Integer)
' Special textbox just for the primary key
TextBox6.Text = CStr(value)
SqlDataSource1. DataBind()
End Set
End Property
Public Sub Edit()
Me.DetailsView1 .ChangeMode(Det ailsViewMode.Ed it)
End Sub
Protected Sub Button1_Click(B yVal sender As Object, ByVal e As
System.EventArg s)
'Update, how do I know if there was an error and not raise the event?
DetailsView1.Up dateItem(True)
RaiseEvent Finished(Me, New EventArgs)
End Sub
Public Event Finished As EventHandler

Protected Sub Button2_Click(B yVal sender As Object, ByVal e As
System.EventArg s)
DetailsView1.Ch angeMode(Detail sViewMode.ReadO nly)
RaiseEvent Finished(Me, New EventArgs)
End Sub
End Class
Any thoughts on cleaning this up a bit and making the search screen control
drive the edit control better are appreciated.