این هم توابع مهمی که اشکال باید از اینا باشد
Sub BindGrid()
Dim getthis As New Mydatabase
getthis.FillDataGrid(datagrid1, "GetLinks")
End Sub
Protected Sub datagrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles datagrid1.DeleteCommand
Dim d As New Mydatabase
d.DeleteMainCat(e.Item.Cells(4).Text)
If datagrid1.Items.Count < datagrid1.PageSize Then
datagrid1.CurrentPageIndex = datagrid1.CurrentPageIndex - 1
End If
BindGrid()
End Sub
Protected Sub datagrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles datagrid1.EditCommand
Response.Redirect("MainCat.aspx?ID=" + e.Item.Cells(4).Text)
End Sub
Protected Sub datagrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles datagrid1.ItemDataBound
If (e.Item.ItemType = ListItemType.Header) Or (e.Item.ItemType = ListItemType.Footer) Then
Return
End If
Dim cellItem As TableCell = CType(e.Item.Cells(0), TableCell)
Dim LinkBtn As LinkButton = CType(cellItem.Controls(0), LinkButton)
LinkBtn.Attributes.Add("onclick", "javascript: return confirm('??? ??? ????? ??????')")
End Sub
Protected Sub datagrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEvent Args) Handles datagrid1.PageIndexChanged
datagrid1.CurrentPageIndex = e.NewPageIndex()
BindGrid()
End Sub