讓 SqlDataSource 的 SelectCommand 屬性值不會消失
承上一篇「SqlDataSource 執行資料篩選」中，可以知道 SqlDataSource 的 SelectCommand 屬性值不會被保留在 ViewState 中，所以我們在 Page 中覆寫 LoadViewState 及 SaveViewState 方法來維護 SqlDataSource 的 SelectCommand 屬性值。
不過這樣每次動態設定 SelectCommand 屬性值都要這樣處理，感覺上會比較麻煩點；是否能讓 SqlDataSource 控制項的 SelectCommand 屬性值可以由控制項本身自行維護狀態呢？當然可以，而且非常簡單，只要把上篇中覆寫 LoadViewState 及 SaveViewState 方法的作法直接搬到自訂 SqlDataSource 控制項即可。
繼承 SqlDataSource 命名為 TBSqlDataSource，覆寫 LoadViewState 及 SaveViewState 方法來維護 SelectCommand 屬性，這樣就可以更方便使用 SelectCommand 屬性，而無需由每個頁面去自行處理。
Namespace WebControls
Public Class TBSqlDataSource
Inherits SqlDataSource
#Region " ViewState 狀態管理 "
''' <summary>
''' 由 ViewState 還原控制項的狀態。
''' </summary>
''' <param name="savedState">要還原的控制項狀態。</param>
Protected Overrides Sub LoadViewState(ByVal savedState As Object)
If Not (savedState Is Nothing) Then
' Load State from the array of objects that was saved at ;
' SavedViewState.
Dim myState As Object() = CType(savedState, Object())
If Not (myState(0) Is Nothing) Then
MyBase.LoadViewState(myState(0))
End If
If Not (myState(1) Is Nothing) Then
Me.SelectCommand = CType(myState(1), String)
End If
End If
End Sub
''' <summary>
''' 控制項的狀態儲存至 ViewState。
''' </summary>
''' <returns>含有控制項之目前檢視狀態的物件。</returns>
Protected Overrides Function SaveViewState() As Object
Dim baseState As Object = MyBase.SaveViewState()
Dim myState(1) As Object
myState(0) = baseState
myState(1) = Me.SelectCommand
Return myState
End Function
#End Region
End Class
End Namespace