请将这个 LINQ C# 转换为 VB

Question

你好 我在网上找到了这段代码，但无法将其转换为 vb。 如果有人帮我将此 LINQ C# 代码转换为 VB，我将非常感激。 这是代码：

/// <summary>
/// 
/// </summary>
/// <returns></returns>
[DataObjectMethod(DataObjectMethodType.Select)]
public IEnumerable<Customer> FindByID(string id)
{
    //  find the customer
    return (from c in this.Customers where c.ID == id select c).ToList();
}

/// <summary>
/// 
/// </summary>
/// <param name="customer"></param>
public void Update(Customer newValues)
{
    //  simulate putting this record back into the database
    Customer oldValues = this.Customers.Find(x => x.ID == newValues.ID);

    oldValues.CompanyName = newValues.CompanyName;
    oldValues.ContactName = newValues.ContactName;
    oldValues.ContactTitle = newValues.ContactTitle;
    oldValues.Address = newValues.Address;
    oldValues.City = newValues.City;
    oldValues.State = newValues.State;
    oldValues.ZIPCode = newValues.ZIPCode;
    oldValues.Phone = newValues.Phone;
}

}

非常感谢您为我做这件事。 马特

Answer 1

您应该能够使用：

<DataObjectMethod(DataObjectMethodType.[Select])> _
Public Function FindByID(id As String) As IEnumerable(Of Customer)
    '  find the customer
    Return (From c In Me.Customers Where c.ID = idc).ToList()
End Function

Public Sub Update(newValues As Customer)

    '  simulate putting this record back into the database
    Dim oldValues As Customer = Me.Customers.Find(Function(x) x.ID = newValues.ID)

    oldValues.CompanyName = newValues.CompanyName
    oldValues.ContactName = newValues.ContactName
    oldValues.ContactTitle = newValues.ContactTitle
    oldValues.Address = newValues.Address
    oldValues.City = newValues.City
    oldValues.State = newValues.State
    oldValues.ZIPCode = newValues.ZIPCode
    oldValues.Phone = newValues.Phone
End Sub