I seem to have a problem when passing more than 122 bytes to a function in
parameters.
Using the example below, when testa is entered the objDataRow object has
lost all data.
This seems to occur only when testb procedure has 123 or more bytes passed
to it, although code does not get to testb before testa is entered.
------------------------------------------
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim objDataRow As DataRow
Dim objDataTable As New DataTable
objDataTable.Columns.Add("Test1")
objDataTable.Columns.Add("Test2")
objDataTable.Columns.Add("Test3")
objDataTable.Columns.Add("Test4")
objDataTable.Columns.Add("Test5")
objDataTable.Columns.Add("Test6")
objDataRow = objDataTable.NewRow()
objDataRow("test1") = 1
objDataRow("test2") = 1
objDataRow("test3") = 1
objDataRow("test4") = 1
objDataRow("test5") = 1
objDataRow("test6") = 1
testa(objDataRow)
End Sub
Public Function testa(ByVal objDataRow As DataRow) As Integer
testb(0, 0, 0, 0, 0, 0, 0, 0) ', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
End Function
Public Function testb( _
ByVal a As Decimal, _
ByVal b As Decimal, _
ByVal c As Decimal, _
ByVal d As Decimal, _
ByVal q As Decimal, _
ByVal r As Decimal, _
ByVal s As Decimal, _
ByVal t As Decimal) As Integer
'ByVal e As Decimal, _
'ByVal f As Decimal, _
'ByVal g As Decimal, _
'ByVal h As Decimal, _
'ByVal i As Decimal, _
'ByVal j As Decimal, _
'ByVal k As Decimal, _
'ByVal l As Decimal, _
'ByVal m As Decimal, _
'ByVal n As Decimal, _
'ByVal o As Decimal, _
'ByVal p As Decimal, _
End Function
End Class
