Private Sub dgAnkets_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgAnkets.EditCommand
        ' редактирование данных в DataGrid
        dgAnkets.EditItemIndex = e.Item.ItemIndex
        Bind()
    End Sub
Private Sub dgAnkets_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgAnkets.UpdateCommand
        Dim TargetComboBox As DropDownList = CType(e.Item.FindControl("cmbStatus"), DropDownList)
        Dim CategoryComboBox As DropDownList = CType(e.Item.FindControl("cmbCategory"), DropDownList)
        Dim RowUID As String = CType(e.Item.Cells( 1 ).Text, String)

        clsSQL.ExecSQL("UPDATE Cars SET  Status=" & TargetComboBox.SelectedValue & ",Category=" & CategoryComboBox.SelectedValue & "  WHERE UID=" & RowUID)
        dgAnkets.EditItemIndex = - 1 
        Call Bind()
    End Sub
 Private Sub dgAnkets_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgAnkets.CancelCommand
        dgAnkets.EditItemIndex = - 1 
        Bind()
    End Sub
    Private Sub dgAnkets_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgAnkets.SortCommand
        Dim itrColumn As DataGridColumn

        ViewState("Sort") = e.SortExpression
        For Each itrColumn In dgAnkets.Columns
            If itrColumn.SortExpression = e.SortExpression Then
                If e.SortExpression.IndexOf(" desc") <> - 1  Then
                    itrColumn.SortExpression() = itrColumn.SortExpression.Replace(" desc", "")
                Else
                    itrColumn.SortExpression() &= " desc"

                End If
            End If

        Next
        Call Bind()
    End Sub
  Private Sub dgAnkets_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgAnkets.PageIndexChanged
        dgAnkets.CurrentPageIndex = e.NewPageIndex
        Call Bind()
    End Sub