Question

如何使用文本框，组合框和日期时间选择器循环和显示记录的最简单方法。

下面是一段代码，但仍然无法弄清楚

Dim dr As DataRow
Dim ds As Dataset
Dim dt As DataTable
<code to fill the dataset>
dt = ds.Tables(0)
For Each dr In dt.Rows
Console.WriteLine (dr("ColName"))
Next
ds.Dispose()

Answer 1

您需要两个循环来执行此操作 - 表中行数的外部循环，以及每行中列的内部循环。

您已经拥有了For Each，但您需要知道DataRow中有多少列，并打印出每列中的值。您可以从DataTable获取列数。

Dim cols As Integer

cols = dt.Columns.Count - 1

For Each dr in dt.Rows
    For i As Integer = 0 To cols        
        Console.WriteLine(dr(i).ToString())
    Next
Next

请注意，我对每列返回的值调用ToString()，并按顺序引用该列。当您访问DataRow中的特定列时，它会返回Object，因此您需要将该值强制转换为正确的数据类型，以便在您的程序中使用。

您发布的代码只会打印具有“ColName”列的值，因为它是每行的列名。如果您没有名为“ColName”的列，则会看到错误。

浏览数据库中的记录

1 个答案: