添加动态成员到ExpandoObject

Question

在下面的方法，我想一个动态成员添加到的expando对象，但它抛出一个异常：未找到扩展对象

公共成员

Private Sub GetAckValues() 
    Try 
     Dim ack_duration As String = String.Empty 
     Dim ack_by_user_fkid As String = String.Empty 
     Dim ack_time As String = String.Empty 
     ack_duration = txtdefaultack.Text 
     ack_by_user_fkid = Convert.ToString(Session("user_code")) 
     Dim Ack_Detail As Object = New ExpandoObject() 
     Ack_Detail.ack_duration = ack_duration 
     Ack_Detail.ack_by_user_fkid = ack_by_user_fkid 
     receiptObject.StatusObject = Ack_Detail 
    Catch ex As Exception 
     logger.Error("Enter JobRequest form done by :" & LoggedinUserId, ex) 
    End Try 
End Sub 

Answer 1

应该这样：

Ack_Detail.ack_duration = Ack_Detail.ack_duration 

实际上是这样的：

Ack_Detail.ack_duration = ack_duration