Link to home
Start Free TrialLog in
Avatar of coletteck8
coletteck8

asked on

method that returns a class

not sure how to explain and this might be too vague, but- i am working on a project with another person and am not sure how to use what they wrote since i'm unfamiliar with this level of code. could someone please help explain how i would use a method that is returning a class?  i need to pass a value to the method and am unsure how to do that since it returns a class. i also need to take the results of the method and assign some of the data to labels on a form. if someone has a site with further information, maybe that would help also?
#Region "GetPermit"

      Friend Function GetPermit(ByVal permitId As Integer) As PSI.Common.Permit
            Dim cn As SqlConnection = Me.CreateConnection()
            cn.Open()
            Dim retval As Permit = Me.GetPermitImpl(permitId, cn)
            cn.Close()
            Return retval
      End Function
Private Function GetPermitImpl(ByVal permitId As Integer, ByVal cn As System.Data.SqlClient.SqlConnection) As PSI.Common.Permit
            Dim cmd As New SqlCommand("spPermit", cn)
            Dim dt As New DataTable
            Dim p As Permit
            Dim imgr As New InspectionMgr

            'Permit
            With cmd
                  .CommandType = CommandType.StoredProcedure
                  .Parameters.Add("@PermitId", SqlDbType.Int).Value = permitId
                  .Parameters.Add("@Mode", SqlDbType.VarChar).Value = "SELECT"
            End With

            Dim da As New SqlDataAdapter(cmd)
            da.Fill(dt)

            If dt.Rows.Count = 0 Then
                  cn.Close()
                  Return New Permit
            End If

            p = New Permit(dt.Rows(0))

            'Applicant, Property and Municipality
            p.Applicant = Me.GetApplicant(p.ApplicantIdLink)
            p.Applicant.[Property] = Me.GetProperty(p.Applicant.PropertyIdLink)
            p.Applicant.[Property].Municipality = Me.GetMunicipality(p.Applicant.[Property].MunicipalityIdLink)

            'PermitContractor relationships
            cmd = New SqlCommand("spPermitContractor", cn)
            dt = New DataTable

            With cmd
                  .CommandType = CommandType.StoredProcedure
                  .Parameters.Add("@PermitIdLink", SqlDbType.Int).Value = p.PermitId
                  .Parameters.Add("@Mode", SqlDbType.VarChar).Value = "SELECTBYPERMIT"
            End With

            da = New SqlDataAdapter(cmd)
            da.Fill(dt)

            'Inspections and Contractors
            For i As Integer = 0 To dt.Rows.Count - 1
                  Dim c As New PermitContractor(dt.Rows(i))
                  Dim dt2 As DataTable
                  c.Contractor = Me.GetContractorImpl(c.ContractorIdLink, cn)
                  c.ContractorType = Me.GetContractorType(c.ContractorTypeIdLink, cn)

                  dt2 = imgr.GetInspections(c.PermitContractorId, cn)

                  For ii As Integer = 0 To dt2.Rows.Count - 1
                        Dim ins As New Inspection(dt2.Rows(ii))
                        ins.InspectionType = imgr.GetInspectionType(ins.InspectionTypeIdLink, cn)
                        c.Inspections.Add(ins)
                  Next

                  p.PermitContractors.Add(c)
            Next

            Return p
      End Function
#End Region
ASKER CERTIFIED SOLUTION
Avatar of imu79
imu79

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of coletteck8
coletteck8

ASKER

i think i need to rephrase my question due to new info. i have a main form, and if you click on a button(showdialog) another form opens with a datagrid. i use the following code in the datagrid form(form2) to get the value of the index when a user clicks a row
  Dim pt = New Point(e.X, e.Y)
        Dim IntID As Integer
        Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt)
        If hti.Type = DataGrid.HitTestType.Cell Then
            DataGrid1.CurrentCell = New DataGridCell(hti.Row, hti.Column)
            DataGrid1.Select(hti.Row)
            IntID = CType(RTrim(DataGrid1.Item(DataGrid1.CurrentRowIndex, 0).ToString), Integer)

I need to pass the value above (IntID) into the method in my first question, however, i would like the return to be usable in form1 so that i can populate label boxes with the return. I'm not at all sure how to do this.
in addition, the method above in my first question is in a separate class(called PermitMgr) from the two forms.