Hi Beth,
The code for the base form is as follows:
n.b some of the declarations have been left out to save space
Public Class ProjectItemForm
Inherits System.Windows.Forms.Form
Public Sub New()
End Sub
Protected WithEvents dgProjectItem As System.Windows.Forms.DataGrid
Public WithEvents tcProjectItem As
Crownwood.DotNetMagic.Controls.ToolControl
Public WithEvents btnCJobs As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Public WithEvents btnCQuotes As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Public WithEvents btnCOrders As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Public WithEvents btnCCalloffs As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Public WithEvents btnCInvoices As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Public WithEvents btnCProjectDet As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Protected cmnuGrid As Crownwood.DotNetMagic.Menus.PopupMenu
Private CurrItem As CurrentItem
Public WithEvents ImgJobs As System.Windows.Forms.ImageList
Public WithEvents gpProjectInfo As System.Windows.Forms.GroupBox
Friend WithEvents bwsSearch As
Crownwood.DotNetMagic.Controls.ButtonWithStyle
Public WithEvents ProjectSiteAddress As System.Windows.Forms.TextBox
Friend WithEvents lblAddress As System.Windows.Forms.Label
Public WithEvents ProjectSiteName As System.Windows.Forms.TextBox
Friend WithEvents LblSiteName As System.Windows.Forms.Label
Friend WithEvents bwsView As
Crownwood.DotNetMagic.Controls.ButtonWithStyle
Public WithEvents tlProjectItem As System.Windows.Forms.ToolTip
Public WithEvents OEProjectItem As
Crownwood.DotNetMagic.Controls.OfficeExtender
Friend WithEvents LblMarginMoney As System.Windows.Forms.Label
Friend WithEvents LblMarginPercent As System.Windows.Forms.Label
Public WithEvents ctbMargin As CurrencyTextBox.CurrencyTextBox
Public WithEvents PtxtMargin As Windows.Forms.TextBox
Friend WithEvents MenuControl1 As Crownwood.Magic.Menus.MenuControl
Me.dgProjectItem = New System.Windows.Forms.DataGrid
Me.tcProjectItem = New Crownwood.DotNetMagic.Controls.ToolControl
Me.btnCProjectDet = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCJobs = New Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCQuotes = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCOrders = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCCalloffs = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCInvoices = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.ImgJobs = New System.Windows.Forms.ImageList(Me.components)
Me.gpProjectInfo = New System.Windows.Forms.GroupBox
Me.PtxtMargin = New System.Windows.Forms.TextBox
Me.ctbMargin = New CurrencyTextBox.CurrencyTextBox
Me.LblMarginMoney = New System.Windows.Forms.Label
Me.LblMarginPercent = New System.Windows.Forms.Label
Me.bwsSearch = New Crownwood.DotNetMagic.Controls.ButtonWithStyle
Me.ProjectSiteAddress = New System.Windows.Forms.TextBox
Me.lblAddress = New System.Windows.Forms.Label
Me.ProjectSiteName = New System.Windows.Forms.TextBox
Me.LblSiteName = New System.Windows.Forms.Label
Me.bwsView = New Crownwood.DotNetMagic.Controls.ButtonWithStyle
Me.tlProjectItem = New System.Windows.Forms.ToolTip(Me.components)
Me.OEProjectItem = New
Crownwood.DotNetMagic.Controls.OfficeExtender(Me.components)
Me.MenuControl1 = New Crownwood.Magic.Menus.MenuControl
CType(Me.dgProjectItem,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.tcProjectItem,
System.ComponentModel.ISupportInitialize).BeginInit()
'dgProjectItem
The code for the child form is as follows
Imports ProjectList.ProjectNameSpace.Gridfunctions.DataGrids
Imports DirectoryNode
Imports System.Data.SqlClient
Namespace ProjectNameSpace
Public Class frmJobs
Inherits ProjectItem_Form.ProjectItemForm
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form
Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents bwsSetDefault As
Crownwood.DotNetMagic.Controls.ButtonWithStyle
Friend WithEvents cboJobsStatus As System.Windows.Forms.ComboBox
Friend WithEvents TCJob As Crownwood.DotNetMagic.Controls.ToolControl
Friend WithEvents btnCCopyJob As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Friend WithEvents btnCQuoteNotes As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Friend WithEvents ToolControl1 As
Crownwood.DotNetMagic.Controls.ToolControl
Friend WithEvents btnCNewJob As
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Friend WithEvents LblJobStatus As System.Windows.Forms.Label
Friend WithEvents AxOleLayout1 As AxOLELAYOUTLib.AxOleLayout
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(frmJobs))
Me.bwsSetDefault = New
Crownwood.DotNetMagic.Controls.ButtonWithStyle
Me.cboJobsStatus = New System.Windows.Forms.ComboBox
Me.TCJob = New Crownwood.DotNetMagic.Controls.ToolControl
Me.btnCCopyJob = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.btnCQuoteNotes = New
Crownwood.DotNetMagic.Controls.Command.ButtonCommand
Me.ToolControl1 = New Crownwood.DotNetMagic.Controls.ToolControl
Me.LblJobStatus = New System.Windows.Forms.Label
Me.AxOleLayout1 = New AxOLELAYOUTLib.AxOleLayout
Me.gpProjectInfo.SuspendLayout()
CType(Me.dgProjectItem,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.tcProjectItem,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TCJob,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToolControl1,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxOleLayout1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PtxtMargin
'
Me.PtxtMargin.Name = "PtxtMargin"
Me.OEProjectItem.SetOffice2003BackColor(Me.PtxtMargin,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
'
'ctbMargin
'
Me.ctbMargin.Name = "ctbMargin"
Me.OEProjectItem.SetOffice2003BackColor(Me.ctbMargin,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
'
'gpProjectInfo
'
Me.gpProjectInfo.Name = "gpProjectInfo"
Me.OEProjectItem.SetOffice2003BackColor(Me.gpProjectInfo,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
'
'dgProjectItem
'
Me.dgProjectItem.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.dgProjectItem.Name = "dgProjectItem"
Me.OEProjectItem.SetOffice2003BackColor(Me.dgProjectItem,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.dgProjectItem.Size = New System.Drawing.Size(648, 184)
'
'tcProjectItem
'
Me.tcProjectItem.Name = "tcProjectItem"
Me.OEProjectItem.SetOffice2003BackColor(Me.tcProjectItem,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
'
'ProjectSiteName
'
Me.ProjectSiteName.Name = "ProjectSiteName"
Me.OEProjectItem.SetOffice2003BackColor(Me.ProjectSiteName,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
'
'ProjectSiteAddress
'
Me.ProjectSiteAddress.Name = "ProjectSiteAddress"
'
'bwsSetDefault
'
Me.bwsSetDefault.BackColor =
System.Drawing.Color.FromArgb(CType(195, Byte), CType(218, Byte), CType(249,
Byte))
Me.bwsSetDefault.Location = New System.Drawing.Point(200, 128)
Me.bwsSetDefault.Name = "bwsSetDefault"
Me.OEProjectItem.SetOffice2003BackColor(Me.bwsSetDefault,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.bwsSetDefault.Size = New System.Drawing.Size(60, 21)
Me.bwsSetDefault.TabIndex = 6
Me.bwsSetDefault.Text = "Set &Default"
Me.bwsSetDefault.TextEdge =
Crownwood.DotNetMagic.Common.TextEdge.Left
'
'cboJobsStatus
'
Me.cboJobsStatus.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboJobsStatus.Location = New System.Drawing.Point(88, 128)
Me.cboJobsStatus.Name = "cboJobsStatus"
Me.OEProjectItem.SetOffice2003BackColor(Me.cboJobsStatus,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.cboJobsStatus.Size = New System.Drawing.Size(104, 21)
Me.cboJobsStatus.TabIndex = 5
'
'TCJob
'
Me.TCJob.Dock = System.Windows.Forms.DockStyle.Bottom
Me.TCJob.Location = New System.Drawing.Point(0, 552)
Me.TCJob.Name = "TCJob"
Me.OEProjectItem.SetOffice2003BackColor(Me.TCJob,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.TCJob.Size = New System.Drawing.Size(860, 4)
Me.TCJob.TabIndex = 11
'
'btnCCopyJob
'
Me.btnCCopyJob.Image =
CType(resources.GetObject("btnCCopyJob.Image"), System.Drawing.Image)
Me.btnCCopyJob.Tag = Nothing
Me.btnCCopyJob.Text = "Copy Job"
'
'btnCQuoteNotes
'
Me.btnCQuoteNotes.Image =
CType(resources.GetObject("btnCQuoteNotes.Image"), System.Drawing.Image)
Me.btnCQuoteNotes.Tag = Nothing
Me.btnCQuoteNotes.Text = "Quote Notes"
'
'ToolControl1
'
Me.ToolControl1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.ToolControl1.Location = New System.Drawing.Point(0, 556)
Me.ToolControl1.Name = "ToolControl1"
Me.OEProjectItem.SetOffice2003BackColor(Me.ToolControl1,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.ToolControl1.Size = New System.Drawing.Size(860, 4)
Me.ToolControl1.TabIndex = 12
'
'LblJobStatus
'
Me.LblJobStatus.BackColor =
System.Drawing.Color.FromArgb(CType(195, Byte), CType(218, Byte), CType(249,
Byte))
Me.LblJobStatus.Location = New System.Drawing.Point(16, 128)
Me.LblJobStatus.Name = "LblJobStatus"
Me.OEProjectItem.SetOffice2003BackColor(Me.LblJobStatus,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.LblJobStatus.Size = New System.Drawing.Size(64, 16)
Me.LblJobStatus.TabIndex = 13
Me.LblJobStatus.Text = "Job Status:"
Me.LblJobStatus.TextAlign =
System.Drawing.ContentAlignment.BottomLeft
'
'AxOleLayout1
'
Me.AxOleLayout1.Enabled = True
Me.AxOleLayout1.Location = New System.Drawing.Point(32, 368)
Me.AxOleLayout1.Name = "AxOleLayout1"
Me.AxOleLayout1.OcxState =
CType(resources.GetObject("AxOleLayout1.OcxState"),
System.Windows.Forms.AxHost.State)
Me.OEProjectItem.SetOffice2003BackColor(Me.AxOleLayout1,
Crownwood.DotNetMagic.Controls.Office2003Color.Disable)
Me.AxOleLayout1.Size = New System.Drawing.Size(264, 184)
Me.AxOleLayout1.TabIndex = 14
'
'frmJobs
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(798, 529)
Me.Controls.Add(Me.AxOleLayout1)
Me.Controls.Add(Me.LblJobStatus)
Me.Controls.Add(Me.TCJob)
Me.Controls.Add(Me.bwsSetDefault)
Me.Controls.Add(Me.cboJobsStatus)
Me.Controls.Add(Me.ToolControl1)
Me.Location = New System.Drawing.Point(0, 0)
Me.Name = "frmJobs"
Me.OEProjectItem.SetOffice2003BackColor(Me,
Crownwood.DotNetMagic.Controls.Office2003Color.Base)
Me.Controls.SetChildIndex(Me.ToolControl1, 0)
Me.Controls.SetChildIndex(Me.dgProjectItem, 0)
Me.Controls.SetChildIndex(Me.tcProjectItem, 0)
Me.Controls.SetChildIndex(Me.gpProjectInfo, 0)
Me.Controls.SetChildIndex(Me.cboJobsStatus, 0)
Me.Controls.SetChildIndex(Me.bwsSetDefault, 0)
Me.Controls.SetChildIndex(Me.TCJob, 0)
Me.Controls.SetChildIndex(Me.LblJobStatus, 0)
Me.Controls.SetChildIndex(Me.AxOleLayout1, 0)
Me.gpProjectInfo.ResumeLayout(False)
CType(Me.dgProjectItem,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.tcProjectItem,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TCJob,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToolControl1,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxOleLayout1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private MyCombofunctions As New ComboFunctions
Private MyDataAccess As New DataAccess.DataAccess
Private blnGridFormatted As Boolean
Private MyGridfunctions As New Gridfunctions
Private MyDataset As New DataSet
Private dsJobs As New DataSet
Private MyJobsNode As DirectoryNode.JobSNode
Private MySqlDataAdapter As SqlDataAdapter
Private IntDefaultValue As Integer
Friend Const CIntSelectAllJobs As Integer = 3
Friend IntJobStatus As Integer
Friend MyProjectInfoTable As DataTable
Private blnContextMenu As Boolean = False
Private Sub frmJobs_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim blnGridformatted As Boolean
Me.tcProjectItem.Commands.Remove(Me.btnCJobs)
Call SetupCombos()
MyGridFunctions.MydataGrid = dgProjectItem
blnGridformatted = MyGridFunctions.FormatDataGrid(Jobs, "Jobs",
MyDataset)
GblProjectGrid = Me.dgProjectItem
End Sub
Public Sub LoadData(ByVal MyNode As JobSNode)
MyDataset = MyNode.DataSet
MyJobsNode = MyNode
Call LoadJobs(MyNode.ProjectKey,
CType(cboJobsStatus.SelectedValue, Integer))
Dim MyParentNode As ProjectNode
MyParentNode = CType(MyNode.Parent, ProjectNode)
MyProjectInfoTable = MyParentNode.DataSet.Tables("ProjectInfo")
If MyDataset.Tables("Jobs").Rows.Count > 0 Then
Call SetLayout()
End If
Call BindProjectInfo(MyProjectInfoTable)
Call BindNonTextFields(MyProjectInfoTable)
End Sub
Private Sub BindNonTextFields(ByRef MyDatatable As DataTable)
Call BindCurrencyField("Text", MyDatatable, "MarginMoney",
Me.ctbMargin)
End Sub
Private Sub DataGrid_MouseUp(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles dgProjectItem.MouseUp
'If right mouse button was clicked and released, display
context menu assigned to the DataGrid.
If e.Button = MouseButtons.Right Then
blnContextMenu = True
Call SetupContextMenu(cmnuGrid, "dgJobs", ImgJobs)
If gblShowMenu Then
cmnuGrid.TrackPopup(dgProjectItem.PointToScreen(New
Point(e.X, e.Y)))
End If
End If
End Sub
Private Sub SetupCombos()
Dim strQuery As String
strQuery = "Exec spCmbJobStatus"
Call MyCombofunctions.SetComboDataset(strQuery, MyDataset,
"JobStatusList", GblConnectionString2)
'use this dataset for the on form combo too
cboJobsStatus.DataSource = MyDataset.Tables!JobStatuslist
cboJobsStatus.DisplayMember = "JobStatus"
cboJobsStatus.ValueMember = "JobStatusKey"
strQuery = "Exec SPSelectDefaultJobStatus"
cboJobsStatus.SelectedValue = GetDefaultComboValue(strQuery,
"DefaultJobStatus")
End Sub
Private Sub LoadJobs(ByVal IntProjectkey As Integer, ByVal
IntJobStatus As Integer)
Dim strquery As String
If IntJobStatus = -1 Then
IntJobStatus = CIntSelectAllJobs 'commented out as it keeps
causing declaration problems. 3 = ALL job Status'
End If
Dim dsJobs As DataSet
dsJobs = MyDataset.Clone()
'rds format the datagrid
Call MyDataAccess.FillsqlAdapter(MyJobsNode.SQLQuery, dsJobs,
"Jobs", GblConnectionString2, MySqlDataAdapter)
Call MyGridfunctions.LoadProjectItemsGrid(MyDataset,
dgProjectItem, "Jobs")
Me.dgProjectItem.DataSource = MyDataset.Tables("Jobs")
Call DisableAddRowToGrid(dgProjectItem)
AddHandler MyDataset.Tables.Item("Jobs").RowDeleted, New
DataRowChangeEventHandler(AddressOf JobsCol_deleted)
End Sub
Private Sub JobsCol_deleted(ByVal sender As Object, ByVal e As
DataRowChangeEventArgs)
Call WriteDebug("frmProjectDetails", "JobsCol_deleted")
System.Windows.Forms.Cursor.Current =
System.Windows.Forms.Cursors.WaitCursor
DirectCast(BindingContext(MyDataset.Tables!Jobs),
CurrencyManager).EndCurrentEdit()
Dim objCommandBuilder As New SqlCommandBuilder(MySqlDataAdapter)
'RCTEST - remove the NOT in the IF below
If Not MyDataAccess.UpdateDataSet(MyDataset, MySqlDataAdapter,
"Jobs") Then
Call mdiClient.RefreshProjectExplorer()
Call mdiClient.SelectNode(CType(MyJobsNode.Parent,
ProjectNode).Key.ToString, "JOBS", MyJobsNode.Key.ToString)
End If
System.Windows.Forms.Cursor.Current =
System.Windows.Forms.Cursors.Default
End Sub
'Code: dgjobs_CurrentCellchanged
Private Sub dgProjectItem_CurrentCellChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
dgProjectItem.CurrentCellChanged
Call WriteDebug("frmJobs", "dgJobs_CurrentCellChanged")
Call SetLayout()
DirectCast(BindingContext(MyDataset.Tables.Item("Jobs")),
CurrencyManager).EndCurrentEdit()
Call MyDataAccess.UpdateDataSet(MyDataset, MySqlDataAdapter,
"Jobs")
'Call MyTree.SetLayoutPic(dgJobs(dgJobs.CurrentCell.RowNumber,
IntJobdirCol))
End Sub
Private Sub SetLayout()
Dim IntJobDirCol As Integer
Dim IntRowNum As Integer = dgProjectItem.CurrentCell.RowNumber
IntJobDirCol =
CType(MyGridfunctions.htcolumnlist("JobDirectory"), Integer)
Call SetLayoutPic(CType(dgProjectItem(IntRowNum, IntJobDirCol),
String))
End Sub
Private Sub SetLayoutPic(ByVal strJobDir As String)
Debug.WriteLine("frmJobs: " & Now & " " & "*** SetLayoutPic -
strJobDir = " & strJobDir)
'sets the Layout picture
Dim stJobLayoutFile As String = strJobDir + "\LAST$LAY.LAY"
If Not IsDBNull(stJobLayoutFile) Then
Me.AxOleLayout1.FileName = stJobLayoutFile
Else
Me.AxOleLayout1.FileName = ""
End If
End Sub
Private Sub dgProjectItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles dgProjectItem.Click
Dim pt As Point = dgProjectItem.PointToClient(Cursor.Position)
Dim hti As DataGrid.HitTestInfo
hti = dgProjectItem.HitTest(pt)
If hti.Type = DataGrid.HitTestType.RowHeader Then
DirectCast(BindingContext(MyDataset.Tables.Item("Jobs")),
CurrencyManager).EndCurrentEdit()
Call MyDataAccess.UpdateDataSet(MyDataset, MySqlDataAdapter,
"Jobs")
End If
End Sub
Friend Function GetDefaultComboValue(ByVal strQuery As String, ByVal
strRequiredField As String) As Integer
Call WriteDebug("frmJobs", "GetDefaultComboValue")
Dim MyReader As SqlDataReader
MyReader = MyDataAccess.CreateDataReader(strQuery,
GblConnectionString2)
If MyReader.HasRows Then
While MyReader.Read
IntDefaultValue =
CType(DealWithNulls(MyReader(strRequiredField)), Integer)
End While
End If
Return IntDefaultValue
End Function
Public Sub HandleCellButtonClick(ByVal sender As Object, ByVal e As
DatagridColumns.DataGridButton.DataGridCellButtonClickEventArgs)
Call WriteDebug("frmJobs", "HandleCellButtonClick")
'rds this code is now in a seperate procedure so that it can be
called from projecttree
Call ActivateJob()
End Sub
Private Sub ActivateJob()
Dim IntRowNum, IntJobStatusCol, IntJobKeyCol As Integer
IntJobStatusCol = CType(Gridfunctions.htcolumnlist("JobStatus"),
Integer)
If UCase(CType(GblProjectGrid(IntRowNum, IntJobStatusCol),
String)) <> "LIVE" Then
MessageBox.Show("Job's with a status of 'Dead' or
'Delivered' cannot be activated", "Job Activate Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
Exit Sub
End If
IntJobKeyCol = CType(Gridfunctions.htcolumnlist("JobKey"),
Integer)
ProjectNameSpace.mdiClient.myJobControl.ActiveJob =
CType(GblProjectGrid(IntRowNum, IntJobKeyCol), Integer)
Dim MyCurrNode As JobSNode
MyCurrNode = CType(mdiClient.ProjectExplorer.SelectedNode,
JobSNode)
Call mdiClient.RefreshProjectExplorer()
Call mdiClient.SelectNode(CType(MyCurrNode.Parent,
ProjectNode).Key.ToString, "JOBS", MyCurrNode.Key.ToString)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Dim Myform As Form
Myform = New frmquotes
Myform.ShowDialog()
End Sub
End Class
End Namespace
