This is a multi-part message in MIME format.
------=_NextPart_000_00D8_01C228D5.7EE7C9E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hai.. I'm new in here, please help me how to get the value when i click
the Addbutton and Editbutton, why when i click on it there's no value
and the script was error ?? I use my own database and use my own tabel,
so to runing this program need to change the database ...
<%@ Page Language=3D"VB" debug=3Dtrue%>
<%@ Import Namespace=3D"System" %>
<%@ Import Namespace=3D"System.Configuration" %>
<%@ Import Namespace=3D"System.Data" %>
<%@ Import Namespace=3D"System.Data.SqlClient" %>
<%@ Import Namespace=3D"System.Web.UI.WebControls.DataGrid" %>
<script language=3D"VB" runat=3D"server">
Sub Page_Load(sender As Object, e As EventArgs)
If Not Page.IsPostBack Then
BindGrid()
End If
End Sub
Sub MyDataGrid_Page(sender As Object, e As
DataGridPageChangedEventArgs)
dim startIndex as Integer
startIndex =3D DG_CheckBox.CurrentPageIndex *
DG_CheckBox.PageSize
DG_CheckBox.CurrentPageIndex =3D e.NewPageIndex
BindGrid
End Sub
private Sub BindGrid()
Dim myConnection As SqlConnection =3D New
SqlConnection(ConfigurationSettings.AppSettings("PubsDSN"))
dim ds as DataSet =3D new DataSet()
dim adapter as SqlDataAdapter =3D new SqlDataAdapter("spvnews",
myConnection)
adapter.Fill(ds,"TBNews")
DG_CheckBox.DataSource=3Dds.Tables("TBNews").DefaultView
DG_CheckBox.DataBind()
End Sub
Sub PagerButtonClick(sender As Object, e As EventArgs)
'used by external paging UI
Dim arg As string =3D sender.CommandArgument
Select arg
Case "next":
If (DG_CheckBox.CurrentPageIndex <
(DG_CheckBox.PageCount - 1)) Then
DG_CheckBox.CurrentPageIndex +=3D 1
End If
Case "prev":
If (DG_CheckBox.CurrentPageIndex > 0) Then
DG_CheckBox.CurrentPageIndex -=3D 1
End If
Case "last":
DG_CheckBox.CurrentPageIndex =3D (DG_CheckBox.PageCount
- 1)
Case Else:
'page number
DG_CheckBox.CurrentPageIndex =3D
System.Convert.ToInt32(arg)
End Select
BindGrid
End Sub
Sub btnSelect_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim myDataGridItem As DataGridItem
Dim chkSelected As System.Web.UI.WebControls.CheckBox
Dim strStoreName As String
Dim strStoreID As String
lblStatus.Text =3D "<br>You selected the Following
items:<br><br>"
For Each myDataGridItem In DG_CheckBox.Items
chkSelected =3D myDataGridItem.FindControl("chkSelection")
If chkSelected.Checked Then
strStoreName =3D
CType(myDataGridItem.FindControl("lblStoreName"), Label).Text
strStoreID =3D CType(myDataGridItem.FindControl("hdnStoreID"),
Label).Text
lblStatus.Text +=3D "The store name is <b>" & strStoreName &
"</b>"
lblStatus.Text +=3D " and the StoreID is <b>" & strStoreID &
"</b><br>"
End If
Next
End Sub
Sub DataGrid_Edit(Source As Object, E As DataGridCommandEventArgs)
DG_CheckBox.EditItemIndex=3DE.Item.itemindex
If e.CommandSource.CommandName =3D "EditItem" Then
response.redirect("abcd.html?test=3D"&E.Item.Cells(1).Text)
Else
response.redirect("abcd.html?delete=3D"&DG_CheckBox.EditItemIndex)
End if
BindGrid
End Sub
</script>
<html>
<head></head>
<body>
<blockquote>
<form runat=3D"server">
<ASP:DataGrid id=3D"DG_CheckBox" runat=3D"server"
AllowPaging=3D"True"
PageSize=3D"5"
PageCount=3D"1"
PagerStyle-Mode=3D"NumericPages"
PagerStyle-HorizontalAlign=3D"Right"
OnPageIndexChanged=3D"MyDataGrid_Page"
OnItemCommand=3D"DataGrid_Edit"
BorderColor=3D"black"
BorderWidth=3D"1"
GridLines=3D"Both"
CellPadding=3D"3"
CellSpacing=3D"0"
Font-Name=3D"Verdana"
Font-Size=3D"8pt"
HeaderStyle-BackColor=3D"#aaaadd"
AlternatingItemStyle-BackColor=3D"#eeeeee"
AutoGenerateColumns=3D"False">
<Columns>
<asp:TemplateColumn HeaderStyle-HorizontalAlign=3DCenter
HeaderText=3D"X">
<ItemTemplate>
<asp:LinkButton ID=3DAddButton Text=3D"Edit"
CommandName=3D"EditItem" ForeColor=3D"blue" runat=3D"server" />
<asp:LinkButton ID=3DRemoveButton Text=3D"Remove"
CommandName=3D"Remove" ForeColor=3D"blue" runat=3D"server" />
<asp:Checkbox ID=3D"chkSelection"
Runat=3Dserver />
<asp:Label ID=3D"hdnStoreID"
Visible=3D"False"
Text=3D'<%# DataBinder.Eval(Container.DataItem, "NewsID") %>'
Runat=3Dserver />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText=3D"Title">
<ItemTemplate>
<asp:Label ID=3D"lblStoreName"
Text=3D'<%# DataBinder.Eval(Container.DataItem, "Title") %>'
Runat=3Dserver />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText=3D"Create Date">
<ItemTemplate>
<asp:Label ID=3D"lblStoreAddress"
Text=3D'<%# DataBinder.Eval(Container.DataItem, "Createdate") %>'
Runat=3Dserver />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
<input type=3D"button"
id=3D"btnSelect"
OnServerClick=3D"btnSelect_OnClick"
value=3D"Select my Stores"
runat=3D"server">
<asp:Label ID=3D"lblStatus"
Font-Name=3D"verdana"
Font-Size=3D"12px"
ForeColor=3D"#ff0000"
Runat=3Dserver />
<asp:Label ID=3D"lab"
Font-Name=3D"verdana"
Font-Size=3D"12px"
ForeColor=3D"#ff0000"
Runat=3Dserver />
<p>
</form>
</blockquote>
</body>
</html>
View Cart
