获取DataGridView中显示的字符串

Question

我有一个使用 DataTable 作为数据源的 DataGridView。

我需要（作为字符串数组）以相同格式获取 DataGridView 中显示的值。

因此，在 DataTable 中有一个值为“100”的字段，在 DGV 中显示为“€ 100,00”。我需要将“€ 100,00”作为字符串

另一个字段是双精度值，其值为“31.506849315068493150684931507”，在 DGV 中显示为“€ 31,51”。我需要将“€ 31,51”作为字符串

DataTable 具有各种类型的字段（字符串、日期、双精度），对于所有这些字段，我需要获取 DGV 中所示的字符串。

我已尝试使用以下代码，但我得到了 DataTable 的值。

For x As Integer = 0 To Me.DGV_IntCalc.RowCount - 1
    Dim RowStrList As New List(Of String)
    For Each Col As String In MaxColLen.Keys
        RowStrList.Add(Me.DGV_IntCalc.Item(Col, x).Value.ToString)
    Next
    Calc_Summay &= String.Format(F_Str, RowStrList.ToArray) & vbCrLf
Next

F_Str 是一个字符串，它提供类似“{0,10} {1,20}”的列格式

EDIT2：

我也试过了：

RowStrList.Add(Format(Me.DGV_IntCalc.Item(Col, x).Value, _
               Me.DGV_IntCalc.Columns(Col).DefaultCellStyle.Format))

但它没有给出预期的结果。我也试过了：

Dim Str$ = Me.DGV_IntCalc.Item(Col, x).Value.ToString
Dim Frmt$ = Me.DGV_IntCalc.Columns(Col).DefaultCellStyle.Format
Dim FormattedStr$ = Format(Str, Frmt)

或

Dim FormattedStr$ = String.Format(Str, Frmt)

但我得到了DataTable 中的值（未格式化）

Answer 1

DGV 提供了包括格式化在内的数据视图。您在某处告诉它将该列格式化为货币。也许是这样的：

dgv1.Columns(3).DefaultCellStyle.Format = "C2"

要取回这些格式化值，请使用FormattedValue 属性：

For n As Int32 = 0 To dgv1.Rows.Count - 1
    Console.WriteLine(dgv1.Item(n, 3).FormattedValue)
Next

另请注意，在您的代码中，您在 If 中声明您的列表：

For x As Integer = 0 To Me.DGV_IntCalc.RowCount - 1
    Dim RowStrList As New List(Of String)
    For Each Col As String In MaxColLen.Keys
        RowStrList.Add(Me.DGV_IntCalc.Item(Col, x).Value.ToString)
    Next
    Calc_Summay &= String.Format(F_Str, RowStrList.ToArray) & vbCrLf
Next

由于RowStrList 是在If 块内声明的，它只会存在于那里。导致缩进的所有内容也会创建一个新的块作用域。请参阅：Reference variables and objects elsewhere 了解更多信息