VB.NET中如何遍历列表？自定义类列表遍历报错求助

你遇到的报错核心是类型不匹配——你的lst是List(Of MyClass)类型，里面的每一个元素都是MyClass的实例对象，不是String类型，所以用For Each item As String In lst去遍历肯定会触发类型转换错误。

正确的遍历方式 #

既然列表里存的是MyClass对象，遍历的时候就要把循环变量的类型指定为MyClass：

Dim lst As New List(Of MyClass)()
lst = GetData()

' 循环变量类型匹配List的泛型参数
For Each item As MyClass In lst
    ' 在这里可以访问item的所有属性，比如输出信息
    Console.WriteLine($"编号：{item.Id}，问题：{item.Questions}，备注：{item.Comments}")
Next

如果你的需求是遍历字符串属性 #

要是你本来想遍历的是MyClass里的某个字符串属性（比如Questions或Comments），可以先通过LINQ把列表投影成字符串集合再遍历：

' 遍历所有Questions属性值
For Each questionText As String In lst.Select(Function(obj) obj.Questions)
    Console.WriteLine(questionText)
Next

额外小技巧：让MyClass支持字符串转换 #

如果希望直接把MyClass对象当作字符串使用（比如直接Console.WriteLine(item)），可以在MyClass里重写ToString()方法，自定义对象的字符串表示：

Public Class MyClass
    Public Overridable Property Id As Integer
    Public Overridable Property Questions As String
    Public Overridable Property Comments As String

    ' 重写ToString方法，自定义对象转字符串的规则
    Public Overrides Function ToString() As String
        Return $"[{Id}] 问题：{Questions}，备注：{Comments}"
    End Function
End Class

这样之后，你甚至可以直接遍历对象并输出，或者通过item.ToString()快速获取对象的字符串形式。

内容的提问来源于stack exchange，提问作者Santosh