0

有人见过这个吗？

Public Shared Function IsAvailableByCampaignId(ByVal cn As SqlConnection, ByVal tr As SqlTransaction, ByVal campaignId As Integer, ByRef dest As PricingThresholds) As Boolean
    Dim retObj = ItemTypes.PricingThresholds.GetThresholds(cn, tr, campaignId)
    If retObj IsNot Nothing Then
        dest = New PricingThresholds(retObj)
    End If
    Dim retVal As Boolean = retObj IsNot Nothing
    Return retVal
End Function

当我打电话给内在

Dim retObj = ItemTypes.PricingThresholds.GetThresholds(cn, tr, campaignId)

我得到一个非 null 或什么都没有的 retObj，但随后我用它来构建一个新的 PricingThresholds，这是我需要返回的正确类型，并且成功创建了一个有效的返回类型对象，但我从外部返回调用传递的参数 destByRef没有任何值，并且是空值或空值。

这就像VB不工作。

我想我可以换一种方式退货。

4

1 回答 1

0

下面的代码显示一切都按预期工作，即dest正在重新分配，并将其值保持在IsAvailableByCampaignId函数之外：

Sub Main()
  Dim dest As New PricingThresholds(1)
  Dim p = IsAvailableByCampaignId(dest)
End Sub

Class PricingThresholds
  Dim _id As Integer
  Sub New(id As Integer)
    _id = id
  End Sub
End Class

Public Function IsAvailableByCampaignId(ByRef dest As PricingThresholds) As Boolean
  dest = New PricingThresholds(2)
  Return True
End Function

随意使用此代码，看看您是否可以重现您所拥有的行为。

于 2013-07-28T18:26:14.403 回答