Question

当我尝试分配_val时，我得到“对象与目标类型不匹配。”

我验证了PropertyInfo都是system.string。我还找到了这种语法的例子。谢谢你的帮助。

Private Function SetAttributesForSplitFiles(ByVal _file As String, ByVal _depHeader As HeaderParse)
    Dim _fileMask As New FileMaskExtension()
    Dim _type As Type = GetType(HeaderParse.depBackupFileProperties)
    For Each _prop As Reflection.PropertyInfo In GetType(OutputMgr.Interface.FileMaskExtension).GetProperties()
        Dim _headerProperty As PropertyInfo = _type.GetProperty(_prop.Name)
        Dim _val = _headerProperty.GetValue(_depHeader)
        _prop.SetValue(_fileMask, _val, Nothing)
    Next
    SendFileTODepcon(_fileMask, _file)
End Function

Answer 1

这是因为我使用的自定义类是两层深。

这很有用。

Dim _val As Object = _headerProperty.GetValue(_depHeader.FileProperties)

从自定义对象异常错误中获取值

1 个答案: