获取 DataTable 的每个字段的最大长度

Question

我的目标是将DataTable 的全部内容显示为RichTextBox，所以我考虑使用String.Format 来制作列，但我需要知道每个列的最大内容长度。

我在SO 上找到了以下 C# 代码，但我无法将其翻译成 VB.Net：

List<int> maximumLengthForColumns = Enumerable.Range(0, dataTable.Columns.Count)
                                   .Select(col => dataTable.AsEnumerable()
                                   .Select(row => row[col]).OfType<string>()
                                   .Max(val => val.Length)).ToList();

任何关于实现我的目标的不同（更简单或更好）方式的提示都表示赞赏。

Answer 1

应该是这样的：

Dim maximumLengthForColumns As List(Of Integer) = Enumerable.Range(0, DataTable.Columns.Count).[Select](Function(col) dataTable.AsEnumerable().[Select](Function(row) row(col)).OfType(Of String)().Max(Function(val) val.Length)).ToList()

格式化代码如下（这只是为了可读性）：

Dim maximumLengthForColumns As List(Of Integer) = Enumerable.Range(0, dataTableDataTable.Columns.Count)
                                                 .[Select](Function(col) dataTable.AsEnumerable()
                                                 .[Select](Function(row) row(col))
                                                 .OfType(Of String)().Max(Function(val) val.Length)).ToList()

Answer 2

'dtb is the datatable'
Dim lstMaxLen As New List(Of Integer)
For Each dcl As DataColumn In dtb.Columns
  Dim intMaxLen As Integer = 0
  For Each drw As DataRow In dtb.Rows
    If drw(dcl.ColumnName).ToString.Length > intMaxLen Then
      intMaxLen = drw(dcl.ColumnName).ToString.Length
    End If
  Next drw
  lstMaxLen.Add(intMaxLen)
Next dcl