Good Morning Phillip,
When I run with errors, the following line:

<asp:DataGrid ID="ParentGrid" Runat="server" BorderStyle="None"
AutoGenerateColumns="False" DataKeyField="ID"
OnItemDataBound="ParentGrid_ItemDataBound" AllowPaging="False">

returns the compilation error:

'ParentGrid_ItemDataBound' is not a member of 'ASP.frmInvUser1_aspx'.

I researched the error number BC30456 but the description was vague. Below
is the vb codebehind:

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Public Class frmInvUser1
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()

End Sub
Protected WithEvents ParentGrid As System.Web.UI.WebControls.DataGrid

'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Public Class DataGrid_Hierarchy
Inherits System.Web.UI.Page

Protected ParentGrid As DataGrid
Protected ChildGrid As MIMSearch.ChildDataGrid

Private Function CreateDS() As DataSet
Dim ds As DataSet
If Session("DataGrid_ParentChild") Is Nothing Then
ds = New DataSet
Dim dt As DataTable
dt.TableName = "Company"
Dim dr As DataRow
dt.Columns.Add(New DataColumn("ID", GetType(Integer)))
dt.Columns.Add(New DataColumn("CompanyName", GetType(String)))
dt.Columns.Add(New DataColumn("Address", GetType(String)))

Dim i As Integer

For i = 1 To i < 10
dr = dt.NewRow
dr(0) = i
dr(1) = "Company " + i + " Title " + Environment.NewLine
+ "Company Division " + i.ToString
dr(2) = "Street Address " + i + Environment.NewLine +
"City " + i + Environment.NewLine + "PostalCode " + i + Environment.NewLine +
"Country " + i.ToString
dt.Rows.Add(dr)
Next
ds.Tables.Add(dt)

Dim Parent_PKColumns(1) As DataColumn
Parent_PKColumns(0) = dt.Columns("ID")
dt.PrimaryKey = Parent_PKColumns

dt = New DataTable("Employees")
dt.Columns.Add(New DataColumn("ID", GetType(Integer)))
dt.Columns.Add(New DataColumn("CompanyID", GetType(Integer)))
dt.Columns.Add(New DataColumn("Name", GetType(String)))
dt.Columns.Add(New DataColumn("Dept", GetType(String)))
For i = 1 To i < 10
Dim y As Integer
For y = 1 To y < 3 '2 emplyees for each company
dr = dt.NewRow()
dr(0) = y + i * 5
dr(1) = i
dr(2) = "Employee # " + dr(0)
dr(3) = "Dept# " + (y + i)
dt.Rows.Add(dr)
Next
Next
Dim Child_PKColumns(1) As DataColumn
Child_PKColumns(0) = dt.Columns("ID")
dt.PrimaryKey = Child_PKColumns
ds.Tables.Add(dt)

Dim Child_FKColumns As ForeignKeyConstraint = New
ForeignKeyConstraint("Child_FKColumns", _
ds.Tables("Company").Columns("ID"), _
ds.Tables("Employees").Columns("CompanyID"))

Child_FKColumns.DeleteRule = Rule.None
' Cannot delete a customer value that has associated
existing orders.
Child_FKColumns.DeleteRule = Rule.None
ds.Tables("Employees").Constraints.Add(Child_FKColumns)

'DataRelation datarel= new DataRelation ("ParentChild",
Parent_PKColumns,
' Child_FKColumns);
'ds.Relations.Add (datarel);

Session("DataGrid_ParentChild") = ds
Else
ds = Session("DataGrid_ParentChild")
End If

Return ds
End Function

#Region " Web Form Designer Generated Code "
Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
InitializeComponent()
MyBase.OnInit(e)
End Sub


' <summary>
' Required method for Designer support - do not modify
' the contents of this method with the code editor.
' </summary>
Private Sub InitializeComponent()
AddHandler Me.Load, AddressOf Me.Page_Load
End Sub
#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
DataGrid_DataBind()
End If
End Sub

Private Sub DataGrid_DataBind()
ParentGrid.DataSource = CreateDS.Tables("Company")
ParentGrid.DataBind()
End Sub

Private Sub ParentGrid_ItemDataBound(ByVal source As Object, ByVal e
As System.Web.UI.WebControls.DataGridCommandEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem
Or _
e.Item.ItemType = ListItemType.EditItem Then

Dim iPrimaryKey As Integer
iPrimaryKey = ParentGrid.DataKeys(e.Item.ItemIndex)
Dim ChildGrid As MIMSearch.ChildDataGrid
ChildGrid = e.Item.FindControl("ChildGrid1")
If ChildGrid Is Nothing Then
ChildGrid = e.Item.FindControl("ChildGrid2")
End If
If Not ChildGrid Is Nothing Then
ChildGrid.CompanyPrimaryKey = iPrimaryKey
End If
End If
End Sub
End Class

'class for the user control ChildDataGrid
Public Class ChildDataGrid
Inherits System.Web.UI.UserControl

Protected ChildGrid As System.Web.UI.WebControls.DataGrid

Public Property CompanyPrimaryKey() As Integer
Get
Dim ret As Integer = 0

Good Morning Erik,

Yes, the error message this time is true. The structure of the code you
have here is not correct. You need to

1- modify the markup on your webform to inherit from the class named
“DataGrid_Hierarachy”. If you look back at my sample you would see a Page
directive like this:
<%@ Page Language="C#" AutoEventWireup="false"
src="DataGrid_Hierarchy.aspx.cs"
Inherits="Societopia.Samples.DataGrid_Hierarchy"%>

2- remove the extra class that is named as the webform name “frmInvUser1”
(basically all the code that you have enclosing the Public Class
DataGrid_Hierarchy…End Calss block of code) Because if you leave it you
would have 2 disconnected classes that inherited from the System.Web.UI.Page

Try that and let's take it from there.
--
HTH,
Phillip Williams
http://www.societopia.net
http://www.webswapp.com


[quoted text, click to view]