vb.net LINQ到数据表中的错误 - 语句的结束预计

Question

If txtSearchString.Text.Trim <> "" Then 
     Dim searchString As String = txtSearchString.Text.Trim 
     Dim results As EnumerableRowCollection(Of DataRow) = From PO In FilterPurchaseOrders().AsEnumerable() _ 
         Where PO("Title") Like searchString Or PO("PONumber") Like searchString _ 
         Or PO("Remarks") Like searchString Or PO("Note") Like searchString _ 
         Or PO("Vendor") Like searchString Or PO("ShipTo") Like searchString _ 
         Or PO("Lookup") Like searchString Or PO("BillTo") Like searchString _ 
         Or PO("Status") Like searchString Or PO("Choice") Like searchString _ 
         Select PO 

     rgPurchaseOrders.DataSource = results 
    End If 

我收到此错误：错误BC30205：预期语句的结束。

FilterPurchaseOrders（）函数返回一个数据表。

哪些错误与上面的代码？

Answer 1

Dev Server上的SharePoint网站未配置为使用.net 3.5。我做了以下的web.config变化，并开始像一个魅力

<system.codedom> 
    <compilers> 
     <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CSharp.CSharpCodeProvider, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4"> 
      <providerOption name="CompilerVersion" value="v3.5"/> 
      <providerOption name="WarnAsError" value="false"/> 
     </compiler> 
     <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.VisualBasic.VBCodeProvider, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4"> 
      <providerOption name="CompilerVersion" value="v3.5"/> 
      <providerOption name="OptionInfer" value="true"/> 
      <providerOption name="WarnAsError" value="false"/> 
     </compiler> 
    </compilers> 
</system.codedom> 

Answer 2

那么，你的结束如果是在同一线路上分配给网格的数据源，但也将导致“如果语句必须有与之匹配的End如果” ......除非你有另一端。如果后代码片段，那么你只会得到“期望的声明结束。”即：

If txtSearchString.Text.Trim <> "" Then 
     Dim searchString As String = txtSearchString.Text.Trim 
     Dim results = From PO In FilterPurchaseOrders().AsEnumerable() _ 
         Where PO("Title") Like searchString Or PO("PONumber") Like searchString _ 
         Or PO("Remarks") Like searchString Or PO("Note") Like searchString _ 
         Or PO("Vendor") Like searchString Or PO("ShipTo") Like searchString _ 
         Or PO("Lookup") Like searchString Or PO("BillTo") Like searchString _ 
         Or PO("Status") Like searchString Or PO("Choice") Like searchString _ 
         Select PO 

     rgPurchaseOrders.DataSource = results **End If** 

    End If