将动态成员添加到 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