|
Question : I am trying to add an edit, delete function to an existing gridview
|
|
Here is the code. I have some declaration and coding error in the functions I am adding to the grid.
OnRowCancelingEdit="uxItemDetailGrid_RowCancelingEdit"
OnRowEditing="uxItemDetailGrid_RowEditing"
OnRowUpdating="uxItemDetailGrid_RowUpdating"
OnRowDeleting="uxItemDetailGrid_RowDeleting"
I am getting this error
Compiler Error Message: BC30002: Type 'ContactTableAdapter' is not defined.
Source Error:
Line 131: Protected Sub uxItemDetailGrid_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs)
Line 132:
Line 133: Dim contact As New ContactTableAdapter()
Line 134:
Line 135: Dim txtName As TextBox = DirectCast(uxItemDetailGrid.Rows(e.RowIndex).FindControl("strNeeds"), TextBox)
here is my aspx page and vb pages.
===========================================================
<%@ Page Language="VB" Debug="false" AutoEventWireup="false" CodeFile="EventRegMeals.aspx.vb" Inherits="wwwroot_EventRegMeals" %>
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
| nt size="4">CMAA Northern California Dinner Meeting Meal Selection</td> |
Print Instructions: Print in preview mode - Set to Landscape - Set Shrink Page to 85% - Click on Print preview.
|
|
=============================================================================
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Public Class wwwroot_EventRegMeals
Inherits System.Web.UI.Page
Private iRowsCount As Integer = 0
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim dtVolumeOrder As New DataTable()
Dim strSelectCommand As String = "SELECT e.dtmEvent,e.strTitle, r.strName, r.strNeeds,r.strEmail,r.fltOrderAmount,r.blnEmailSent,r.dtmCreated FROM i2Integration_EventRegv45_Event e,i2Integration_EventRegv45_Registration r where e.intEventID = r.intEventID and r.blnEmailSent=1 Order by e.dtmEvent"
Using sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString)
Using adapPatientBills As New SqlDataAdapter(strSelectCommand, sqlConn)
adapPatientBills.Fill(dtVolumeOrder)
End Using
End Using
uxItemDetailGrid.DataSource = dtVolumeOrder
uxItemDetailGrid.DataBind()
Dim dtVolumeOrder2 As New DataTable()
Dim strSelectCommand2 As String = "SELECT distinct(strTitle),intEventID FROM i2Integration_EventRegv45_Event order by intEventID"
Using sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString)
Using adapPatientBills As New SqlDataAdapter(strSelectCommand2, sqlConn)
adapPatientBills.Fill(dtVolumeOrder2)
End Using
End Using
DroplistData.DataSource = dtVolumeOrder2
DroplistData.DataTextField = "strTitle"
DroplistData.DataBind()
End If
End Sub
Protected Sub DroplistData_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
'Dim dtVolumeOrder As New DataTable()
'Where strTitle = '" + DroplistData.SelectedValue + "'"
'Dim strSelectCommand As String = "SELECT strTitle FROM i2Integration_EventRegv45_Event"
'Using sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString)
'Using adapPatientBills As New SqlDataAdapter(strSelectCommand, sqlConn)
'adapPatientBills.Fill(dtVolumeOrder)
'End Using
'End Using
'DroplistData.DataSource = dtVolumeOrder
'DroplistData.DataTextField = "strTitle"
'DroplistData.DataBind()
ddlYear.SelectedIndex = 0
End Sub
Protected Sub ddlMth_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
'+ "' AND e.strTitle = '" + DroplistData.SelectedValue
Dim dtVolumeOrder As New DataTable()
Dim strSelectCommand As String = "SELECT e.dtmEvent,e.strTitle,r.strName, r.strNeeds, r.dtmCreated FROM i2Integration_EventRegv45_Event e,i2Integration_EventRegv45_Registration r where e.intEventID = r.intEventID and r.blnEmailSent=1 and (YEAR(e.dtmEvent) = '" + ddlYear.SelectedValue + "' AND MONTH(e.dtmEvent) = '" + ddlMth.SelectedValue + "' AND e.strTitle = '" + DroplistData.SelectedValue.Tostring.replace("'","''") + "') Order by e.dtmEvent"
Using sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString)
Using adapPatientBills As New SqlDataAdapter(strSelectCommand, sqlConn)
adapPatientBills.Fill(dtVolumeOrder)
End Using
End Using
iRowsCount = dtVolumeOrder.Rows.Count - 1
uxItemDetailGrid.DataSource = dtVolumeOrder
uxItemDetailGrid.DataBind()
End Sub
Protected Sub ddlYear_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
'+ "' AND e.strTitle = '" + DroplistData.SelectedValue
Dim dtVolumeOrder As New DataTable()
Dim strSelectCommand As String = "SELECT e.dtmEvent,e.strTitle,r.strName, r.strNeeds, r.dtmCreated FROM i2Integration_EventRegv45_Event e,i2Integration_EventRegv45_Registration r where e.intEventID = r.intEventID and r.blnEmailSent=1 and (YEAR(e.dtmEvent) = '" + ddlYear.SelectedValue + "' AND MONTH(e.dtmEvent) = '" + ddlMth.SelectedValue + "' AND e.strTitle = '" + DroplistData.SelectedValue.Tostring.replace("'","''") + "') Order by e.dtmEvent"
Using sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString)
Using adapPatientBills As New SqlDataAdapter(strSelectCommand, sqlConn)
adapPatientBills.Fill(dtVolumeOrder)
End Using
End Using
iRowsCount = dtVolumeOrder.Rows.Count - 1
uxItemDetailGrid.DataSource = dtVolumeOrder
uxItemDetailGrid.DataBind()
End Sub
Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
' Verifies that the control is rendered
End Sub
Protected Sub OnPaging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
uxItemDetailGrid.PageIndex = e.NewPageIndex
uxItemDetailGrid.DataBind()
End Sub
Protected Sub btnReturn_Click(ByVal sender As Object, ByVal e As EventArgs)
'Dim URL = "http://www.cmaanorcalevents.com/"
Response.Redirect("http://www.cmaanorcalevents.com") ' return to clients website
End Sub
Protected Sub btnExportExcel_Click(ByVal sender As Object, ByVal e As EventArgs)
Response.Clear()
Response.Buffer = True
'For Word:
'Response.AddHeader("content-disposition", "attachment;filename=data.doc")
'Response.ContentType = "application/vnd.ms-word"
'For Excel
Response.AddHeader("content-disposition", "attachment;filename=Mealdata.xls")
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim oStringWriter As New System.IO.StringWriter()
Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter)
uxItemDetailGrid.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.[End]()
End Sub
Protected Sub uxItemDetailGrid_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs)
Dim contact As New ContactTableAdapter()
Dim txtName As TextBox = DirectCast(uxItemDetailGrid.Rows(e.RowIndex).FindControl("strNeeds"), TextBox)
contact.Update(txtName.Text)
uxItemDetailGrid.EditIndex = -1
FillGrid()
End Sub
Protected Sub uxItemDetailGrid_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs)
uxItemDetailGrid.EditIndex = e.NewEditIndex
FillGrid()
End Sub
Protected Sub uxItemDetailGrid_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs)
uxItemDetailGrid.EditIndex = -1
FillGrid()
End Sub
Protected Sub uxItemDetailGrid_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
Dim contact As New ContactTableAdapter()
Dim id As Integer = Convert.ToInt32(uxItemDetailGrid.DataKeys(e.RowIndex).Values(0).ToString())
contact.Delete(id)
FillGrid()
End Sub
End Class
|
|
|
Answer : I am trying to add an edit, delete function to an existing gridview
|
|
can you also post your ContactTableAdapter class?
|
|
|
|
|
