Help Needed. When I click on button1, employee_id and P values need to be transferred from button1_click to Cal_Category13() and go through all the calculation. After the calculation, udtnew.X and udtnew.MTD values need to be transferred back to button1_Click

I've no problem to return multiple values Cal_Category13().MTD and Cal_Category13().X from Cal_Category13() to button1_Click but i've no idea how to transfer employee_id and p values from button1_click to Cal_Category13(). Do need your help to shed some lights.

Program Code

Public Structure PCB

Public Employee_ID As String
Public MTD As Decimal
Public X As Decimal

End Structure
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connetionString_Category As String
Dim sqlCnn_Category As SqlConnection
Dim sqlCmd_Category As SqlCommand
Dim sql_Category As String
Dim EmployeeID As String

connetionString_Category = "data source= PC; initial catalog=HRM;" & "integrated security=true"
sql_Category = "Select * from Employee"
sqlCnn_Category = New SqlConnection(connetionString_Category)
sqlCmd_Category = New SqlCommand(sql_Category, sqlCnn_Category)
Dim sqlReader_Category As SqlDataReader = sqlCmd_Category.ExecuteReader()
While sqlReader_Category.Read()
EmployeeID = sqlReader_Category(1)

'P and Employee ID need to be transferred from button1_Click to Cal_Category13()

P = ((sqlReader_Category(2) - sqlReader_Category(3)) + (sqlReader_Category(4) - sqlReader_Category(5))

Dim MTD_V As Decimal
Dim X As Decimal
MTD_V = Cal_Category13().MTD
X = Cal_Category13().X
End While
End Sub
Public Function Cal_Category13() As PCB

If P >= 5001 And P <= 20000 Then

M = 5000
R = 3 / 100
Category13 = -375

Dim connetionString As String
Dim sqlCnn As SqlConnection
Dim sqlCmd As SqlCommand
Dim sql As String

connetionString = "data source=PC; initial catalog=HRM;" & "integrated security=true"

sql = "Select * from PCB_Est where Employee_ID = '”& Employee_ID &”'"
sqlCnn = New SqlConnection(connetionString)
sqlCmd = New SqlCommand(sql, sqlCnn)
Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()

Dim udtnew As PCB
While sqlReader.Read()

Dim MTD_Total As Decimal = sqlReader.item(20)

udtnew.X += MTD_Total
End While

Response.Write("Accumulated X value" & udtnew.X)

udtnew.MTD = (((P - M) * R + Category13) - (Z + udtnew.X))

If udtnew.MTD < 0 Then
udtnew.MTD = 0
Return udtnew
Return udtnew

End If

End Function

6 Years
Discussion Span
Last Post by Mariandi

Can you put your code in code-tags? It will make it WAY easier to read.

Generally, accepted OOP practice would be to return an object containing the two values you need. You can only return one object from a Function, but that object can have many properties, or it could even be an ArrayList containing your return values. I wouldn't recommend using an ArrayList, though, because you lose the advantages of type-checking as you develop/build.

Edited by mike_2000_17: Fixed formatting


You can also, create a structure and return an instance of that structure.
the structure can contain as many values as you want of any type

This article has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.