如何手动将列datagridview值转换为字符串？

How to convert column datagridview values to strings manually?

提问人：roy 提问时间：4/6/2023 最后编辑：roy 更新时间：4/8/2023 访问量：249

问：

如何在 VB.NET 中手动将列数据网格视图值转换为字符串？

我尝试手动转换值，它不起作用，因为我想在打印预览库中使用它，但如果我使用另一个示例（进一步显示），它可以工作。我的代码有错误吗？

Public Function getData() As DataTable
    Dim dt As New DataTable()
    dt.Columns.Add("UserId", GetType(Int32))
    dt.Columns.Add("UserName", GetType(String))
    dt.Columns.Add("Education", GetType(String))
    dt.Columns.Add("Location", GetType(String))
    dt.Columns.Add("Price", GetType(Double))
    dt.Rows.Add(1, "Satinder Singh", "Bsc Com Sci", "Mumbai", 25000)
    dt.Rows.Add(2, "Amit Sarna", "Mstr Com Sci", "Mumbai", 21000)
    dt.Rows.Add(3, "Andrea Ely", "Bsc Bio-Chemistry", "Queensland", 35000)
    dt.Rows.Add(4, "Leslie Mac", "MSC", "Town-ville", 22000)
    dt.Rows.Add(5, "Vaibhav Adhyapak", "MBA", "New Delhi", 27000)
    Return dt
End Function

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = getData()

End Sub
    Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

        If (e.ColumnIndex = 4) Then

            e.Value = String.Format("{0:N2}", e.Value)

        End If

    End Sub
Private Sub GenerateReport()
    KtReport1.Clear()
    KtReport1.AddString("<h2>Product List</h2>")
    KtReport1.AddHorizontalRule()
    ktReport1.AddDatagridView(DataGridView1)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    GenerateReport()
    KtReport1.ShowPrintPreviewDialog()
End Sub

列价格中的 DataGridView：- 打印预览报告中列价格中的 DataGridView：- result datagridview in column priceresult datagridview in column price in print preview report

如果我使用另一个例子，它可以工作：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim random As New Random()
    For i As Integer = 0 To 4
        Dim productName = "Product" & (i + 1)
        Dim productPrice = random.Next(5, 5000)
        DataGridView1.Rows.Add(New Object() {productName, productPrice.ToString("N2")})
    Next i
End Sub

Private Sub GenerateReport()
    KtReport1.Clear()
    KtReport1.AddString("<h2>Product List</h2>")
    KtReport1.AddHorizontalRule()
    ktReport1.AddDatagridView(DataGridView1)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    GenerateReport()
    KtReport1.ShowPrintPreviewDialog()
End Sub

另一个示例结果 DataGridView in 列 Price：-another example result datagridview in column price

另一个示例结果 DataGridView in 列 Price in Print Preview Report：-another example result datagridview in column price in print preview report

来自 user09938 的答案结果

datagridview 中的结果

打印预览结果 （ktreport）

Code Kimtoo 报告 （KTReport）

String vb.net DataTable DataGridView 类型转换

评论

1赞 Andrew Morton 4/6/2023
请你向我指出问题吗？DGV 中的所有值似乎都已显示在打印预览中。如果将价格值转换为字符串时有问题，则您尚未显示执行此操作的代码。（您应该使用 Decimal 类型来表示金钱，而不是 Double。
0赞 Marvin Schuchardt 4/6/2023
您正在源数据表中将类型设置为 double。另一方面，您的工作示例是设置显示 datagridview 的值的格式。
0赞 roy 4/7/2023
@AndrewMorton，感谢您的回复，我已将数据类型更改为十进制，并且在我在 datagridview 中执行“DefaultCellStyle.Format”之前，但在 datagridview 中更改了，但在打印预览中没有更改。但是，如果您在我的帖子中看到列价格中的另一个示例结果 DataGridView，它也会更改 DataGridView 和打印预览的结果
0赞 roy 4/7/2023
@MarvinSchuchardt，感谢您的回复，在我在 datagridview 中执行“DefaultCellStyle.Format”但在 datagridview 中更改但在打印预览中未更改之前。
0赞 Andrew Morton 4/8/2023
@user18 您忘记编辑问题以添加执行格式设置的代码。我只能猜测你忘记了在我们看不到的代码中做。.ToString("N2")

答：

0赞 Tu deschizi eu inchid 4/7/2023 #1

目前尚不清楚是什么，但似乎您希望在 DataGridView 中设置列的格式。下面演示如何将 DataTable 与 DataGridView 一起使用，以及如何设置 DataGridViewColumn 属性。KtReport1Price

根据十进制数据类型 （Visual Basic）：

它特别适用于计算，例如财务计算， 需要大量数字，但不能容忍舍入错误。

在下面的代码中，您会注意到，如果 DataTable 列的数据类型为 ，则设置为 。否则，不会设置格式。DecimalFormatN2

形式1.vb

Public Class Form1

    'create new instance
    Private _dt As DataTable = New DataTable()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'initialize DataTable
        InitializeDataTable(_dt)

        'initialize DataGridView
        InitializeDataGridView(_dt)

        'bind to DataTable
        DataGridView1.DataSource = _dt

        'add test data
        AddTestData(_dt)
    End Sub

    Public Sub InitializeDataTable(dt As DataTable)
        'add columns to DataTable
        dt.Columns.Add(New DataColumn() With {.ColumnName = "UserId", .Caption = "User Id", .DataType = GetType(Int32)})
        dt.Columns.Add(New DataColumn() With {.ColumnName = "Username", .Caption = "Username", .DataType = GetType(String)})
        dt.Columns.Add(New DataColumn() With {.ColumnName = "Education", .Caption = "Education", .DataType = GetType(String)})
        dt.Columns.Add(New DataColumn() With {.ColumnName = "Location", .Caption = "Location", .DataType = GetType(String)})
        dt.Columns.Add(New DataColumn() With {.ColumnName = "Price", .Caption = "Price", .DataType = GetType(Decimal)})
    End Sub

    Public Sub InitializeDataGridView(dt As DataTable)
        'set property
        DataGridView1.AutoGenerateColumns = False

        'remove existing columns
        DataGridView1.Columns.Clear()

        'add each column that exists in the DataTable to the DataGridView
        'ToDo: change/set properties as desired
        For Each dataColumn As DataColumn In dt.Columns
            Dim dgvCol As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn() With
            {
                .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill,
                .DataPropertyName = dataColumn.ColumnName,
                .DefaultCellStyle = If(dataColumn.DataType = GetType(Decimal), New DataGridViewCellStyle() With {.Alignment = DataGridViewContentAlignment.MiddleCenter, .Format = "N2"}, New DataGridViewCellStyle() With {.Alignment = DataGridViewContentAlignment.MiddleCenter}),
                .FillWeight = 10,
                .HeaderCell = New DataGridViewColumnHeaderCell() With {.Style = New DataGridViewCellStyle() With {.Alignment = DataGridViewContentAlignment.MiddleCenter}},
                .HeaderText = If(Not String.IsNullOrEmpty(dataColumn.Caption), dataColumn.Caption, dataColumn.ColumnName),
                .MinimumWidth = 5,
                .Name = dataColumn.ColumnName,
                .Width = 100
            }

            'add column to DataGridView
            DataGridView1.Columns.Add(dgvCol)
        Next
    End Sub

    Public Sub AddTestData(dt As DataTable)
        'add rows to DataTable
        dt.Rows.Add(1, "Satinder Singh", "Bsc Com Sci", "Mumbai", 25000)
        dt.Rows.Add(2, "Amit Sarna", "Mstr Com Sci", "Mumbai", 21000)
        dt.Rows.Add(3, "Andrea Ely", "Bsc Bio-Chemistry", "Queensland", 35000)
        dt.Rows.Add(4, "Leslie Mac", "MSC", "Town-ville", 22000)
        dt.Rows.Add(5, "Vaibhav Adhyapak", "MBA", "New Delhi", 27000)
    End Sub
End Class

其他资源

评论

0赞 roy 4/7/2023
谢谢你的回答。从代码中，您在 datagridview 中成功转换，但价格列的打印预览 （KtReport） 结果没有格式 （N2），我在这篇文章中也附上了屏幕截图
0赞 Tu deschizi eu inchid 4/7/2023
@user18：请在 OP 中添加有关 GenerateReport 的更多信息，包括所使用的方法/属性的代码。
0赞 roy 4/8/2023
感谢您的回复。我用于生成报告库，即 Kimtoo.Reports。我检查了 github 上的信息，并使用程序语言 C 将其附加在屏幕截图中#
1赞 Tu deschizi eu inchid 4/8/2023
问题似乎与报表库未使用 DataGridView 中设置的格式有关。您必须向库开发人员提交问题，或者在不使用该库的情况下继续。
0赞 roy 4/8/2023
因此，从您的代码中，只需将其更改为对齐到中间右侧，然后报告库将支持该格式。另一个如果我使用“列价格中的另一个示例结果 dataGridView：”，我手动创建 DataGridView 列，然后我不格式化它在报告库中工作的对齐方式。

上一个：如何在 VB 中从字符串的开头和结尾修剪双引号？

下一个：使用 Strings.InStr 或 IndexOf 搜索子字符串不会产生任何结果