fereshte22
سه شنبه 23 مرداد 1386, 20:22 عصر
سلام
شما نگفتید که کاری که میخواهید انجام دهید چه تفاوتی با مثال های داده شده در سایت دارد.
ولی به هر حال
به کد زیر یه نگاهی بندازید ببینید به دردتون میخورد.
<asp:TemplateField HeaderText="Delete">
<ItemTemplate>
<asp:Button ID="btnDelete" runat="server" CommandName="Delete" OnClientClick="return confirm('Are you sureyou want to delete this record?');"
Text="Delete" />
</ItemTemplate>
</asp:TemplateField>
کد
Protected Sub SqlDataSource1_Deleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEvent Args)
If e.Exception Is Nothing Then
If e.AffectedRows = 1 Then
Label1.Text = "Record deletedsuccessfully."
Else
Label1.Text = "An error occurred duringthe delete operation."
End If
Else
Label1.Text = "An error occurred whileattempting to delete the row."
e.ExceptionHandled = True
End If
End Sub
در ضمن وقتی دیتاسورس ایجاد میکنید delete را هم براش مشخص کنید.
اگر هم میخواهید از چک باکس استفاده کنید همون کد آقای راد را استفاده کنید
<asp:TemplateField HeaderText="حذف">
<FooterTemplate>
<asp:Button ID="btnRemove" runat="server" BackColor="#FFC080" BorderStyle="Solid"
BorderWidth="1px" CommandName="remove" Font-Names="Tahoma" Font-Size="11px" Text="حذف" />
</FooterTemplate>
<ItemTemplate>
<asp:CheckBox ID="ChkRemove" runat="server" />
</ItemTemplate>
<ItemStyle BackColor="LightCoral" HorizontalAlign="Center" />
<HeaderStyle BackColor="#5A49A7" HorizontalAlign="Center" />
<FooterStyle BackColor="#669900" HorizontalAlign="Center" />
</asp:TemplateField>
showfooter را هم true کنید
کد
Protected Sub AuthorsGridView_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles AuthorsGridView.RowCommand
Dim chkRemove As WebControls.CheckBox
Dim strIDs As String = ""
Dim boolCheck As Boolean = False
For Each gvRow As GridViewRow In AuthorsGridView.Rows
chkRemove = CType(gvRow.FindControl("ChkRemove"), WebControls.CheckBox)
If chkRemove.Checked Then
boolCheck = True
strIDs += AuthorsGridView.DataKeys(gvRow.RowIndex).Value & ","
End If
Next
If boolCheck = True Then
Dim strSQL As String = "Delete From kala Where number IN (" & strIDs.Substring(0, strIDs.LastIndexOf(",")) & ")"
Dim Cnn As New SqlConnection("connectionstring")
Dim Cmd As New SqlCommand(strSQL, Cnn)
Try
Cnn.Open()
Cmd.ExecuteNonQuery()
Catch ex As SqlException
Response.Write(ex.Message.ToString())
Finally
If Cnn.State <> ConnectionState.Closed Then Cnn.Close()
If (Not Cmd Is Nothing) Then Cmd.Dispose()
BindGridView()
End Try
End If
End Sub
Public Sub BindGridView()
AuthorsGridView.DataSourceID = "SqlDataSource1"
End Sub
کلید اصلی هم به نام number است.