将我的代码从 C# 转换为 VB.NET，现在它抛出了一个错误

Question

谁能解释一下这个错误是什么意思？我是 VB 编程的新手，不明白这一点。

错误：未定义类型“var”

这是我的代码

Dim result = From s In reader.GetSales() _
                 Join c In reader.GetSalesRep() _
                     On s.SalesRepID Equals c.SalesRepID _
             Order By c.SalesRepID _
             Select New _
                 With { _
                     .SalesRepID = c.SalesRepID, _
                     .FirstName = c.FirstName
                     ''# truncated for brevity
                 }

Dim sb As New StringBuilder(50)
Dim path As String = "..\debug\CarSalesFiles\Commissions" _
                   + DateTime.Today.Year _
                   + DateTime.Today.Month _
                   + DateTime.Today.Day _
                   + ".txt"

If Not File.Exists(path) Then
    Using sw As StreamWriter = File.CreateText(path)

        ''# Here's the error line
        For Each var In result
            sb.Append(item.SalesRepID + _seperator)
            sb.Append(item.LastName + _seperator)
            sb.Append(item.FirstName + _seperator)
        Next

Answer 1

这就是我想出的。您的匿名类型未设置ToList()，因此您的循环不会按预期工作。您还使用了var 变量，然后在循环中使用了item。

查看我的调整。

' I did NOT test your LINQ query, I just added .ToList()
Dim results = (From s In reader.GetSales() _
                  Join c In reader.GetSalesRep() _
                  On s.SalesRepID Equals c.SalesRepID _
                  Order By c.SalesRepID _
                  Select New List(Of Results) With { _
                      .SalesRepID = c.SalesRepID, _
                      .FirstName = c.FirstName
                      ''# truncated for brevity
                  }).ToList() 

'...

If Not File.Exists(path) Then
    ''# not sure the purpose of the streamWriter here.
    ''# Using sw As StreamWriter = File.CreateText(path)

        For Each result In results ''# Notice the 'item' not 'var'
            sb.Append(result.SalesRepID + _seperator)
            ''# ...
        Next
End If

---

编辑

在与@cHao 讨论时，如果您的代码中打开了Option Strict，您可能需要为您的匿名类型result 创建一个POCO ...见下文。

Public Class Result
    Private Property _SalesRepID As Integer
    Public Property SalesRepID As Integer
        Get
            return _SalesRepID
        End Get
        Set(ByVal Value As Integer)
            _SalesRepID = value
        End Set
    End Property

    ' Wash / Rinse / Repeat for ALL your properties
End Class

然后在您的示例代码中

' Again, I did NOT test your LINQ query, I just added .ToList()
Dim results As List(Of Result) = (From s In reader.GetSales() _
                                  Join c In reader.GetSalesRep() _
                                  On s.SalesRepID Equals c.SalesRepID _
                                  Order By c.SalesRepID _
                                  Select New Result With { _
                                     .SalesRepID = c.SalesRepID, _
                                     .FirstName = c.FirstName
                                     ''# truncated for brevity
                                  }).ToList()

' ....

For Each result As Result In results ''# Notice the 'result' not 'var'
    sb.Append(result.SalesRepID + _seperator)
    ''# ...
Next

' Apologies for minor mistakes, the SO editor isn't quite as awesome as Visual Studio.

Answer 2

C# 关键字 var 在 VB.NET 中没有直接等效项，而是需要设置 Option Infer On。

或者，您可以明确指定类型：

For Each foo As Sale In result

Answer 3

您似乎在使用“var”，但您尚未定义它。注意：在 VB 中，变量是用谓词 DIM 定义的。您需要在使用它之前声明一个变量。 VAR 的 C# 构造在此处不完全适用。但是，我自己并不是 VB 的忠实用户，但请记住，您可以这样做：

DIM var（创建 var） DIM var as String（类型稍后声明）

Dim 可以理解为“我正在声明一个变量，但还不能告诉你它的行为方式。”

简单地说，在 VB 中，您可以在为其分配类型或值之前创建变量。但是，我会为您指出关于 DIM 和 VAR 差异的更好解释。

Scott Hanselman - Back to Basics: var != Dim

我假设您正在编写某种办公代码？ C# 通常应该与使用 VB 一样好（如果在某些方面不是更好的话）。在处理 OFFICE 集成应用程序时，文章中提到了一个例外。

希望这会有所帮助。

Answer 4

试试这个：

For Each item In result

为此，您必须将 Option Infer 设置为 On。此外，您似乎正在使用 stringbuilder 作为最终写入文件的缓冲区。最好直接写入文件流。