循环遍历单个 DataTable VB.Net 的行

Question

我在尝试迭代 Datatable 甚至使用 Linq 类时遇到了麻烦。

我有一张这样的桌子：

(String)      (String)        (String)      (String)  (Integer)
Criteria    | description   |  Option   |   Title   | status
------------------------------------------------------------
Criteria 1    Lorem Ipsum      Option 1     Class #     0 
Criteria 1    Lorem Ipsum      Option 1     Class #     0 

Criteria 2    Lorem Ipsum      Option 1     Class #     0 
Criteria 2    Lorem Ipsum      Option 2     Class #     1 
Criteria 2    Lorem Ipsum      Option 3     Class #     0 

Criteria 3    Lorem Ipsum      Option 1     Class #     0 
Criteria 3    Lorem Ipsum      Option 2     Class #     1 
Criteria 3    Lorem Ipsum      Option 2     Class #     0 
Criteria 3    Lorem Ipsum      Option 3     Class #     0 

这是我的代码隐藏

--VB.NET--
Dim dt As DataTable = StoredProcedure    

For Each row As DataRow In dt.Rows
  Dim sCriteriaOne As DataRow() = dt.Select("Criteria='Criteria 1'")

  Item.Append("<p>" + CStr(sCritOne.Item("Option")) + "</p>")
Next

目前它不会编译并给我“项目”不是 DataRow() 的成员

我想要实现的是能够循环遍历 DataTable 并在满足条件的情况下附加 that 行 Item。我曾尝试使用 Linq，但我对此的理解有限，尽管我确实阅读了许多其他 MSDN 文档和关于类似问题的 SO 帖子。

Answer 1

您的循环开始得很好，但在细节上却分崩离析。我猜到你想做什么，但也许这足以让你开始。字符串前面的$ 是一个内插字符串，它允许您将变量放在由{ } 包围的字符串中。如果您有旧版本的 vb，则必须使用旧方法 String.Format。要检查数据是如何更新的，请在结束程序后检查即时窗口。这就是Debug.Print 的用途。

 If row("Criteria").ToString = "Criteria 1" Then
                row("Criteria") = row("Criteria").ToString & $" <p>{CStr(row("Option"))}"
                Debug.Print(row("Criteria").ToString)
  End If