合并 DataGridView Visual basic.net 2008 中的项目

Question

 Dim X As String
 Dim V, Q, Y As Double
DGV.ColumnCount = 3
 con.Open()
cmd = New SqlCommand("select Name,Price from Items where Name ='" & ListItems.SelectedItem & "'", con)
DR = cmd.ExecuteReader
While DR.Read()
    ' Q = Val(Qty.Text)
    X = (DR("Name").ToString())
    Y = Val((DR("Price").ToString()))
    V = Q * Y
    Dim row As String() = New String() {Q, X, V}
    DGV.Rows.Add(row)

我正在使用可视化 basic.net，如果我在 DataGridView 中有类似的项目，如下所示例如

1 hot dog 5 $
2 hot dog 10 $
5 hot dog 20 $

我们如何将它们合并为一行

8 热狗 40 $

Answer 1

所以你有"名称"和"价格"列。从您的代码下的文本中，我看到该名称将是"5 热狗"，价格将是"20 美元"。我不知道它们是否以这种方式格式化，但我会假设如此。

因此，您首先要做的是计算"总计"行中所需的值。由于初始数字后有"热狗"或字符串，因此我们希望为每个值获取该数字。我们将循环，评估该数字并对其进行总结。我们将对价格列执行相同的操作，但我们将删除字符串中的"$"。同样，我在这里做了很多假设。

    Dim nameTotal As Integer = 0
    Dim priceTotal As Integer = 0
    'loop through each row of the DGV
    For Each row As DataRow In DGV.Rows
        'evaluate value in current row
        Dim str_nameValue As String = row.Item("Name").ToString()
        str_nameValue = str_nameValue.Remove(" hot dog")
        'or if there are other string attached, remove those from the str_nameValue here to get an integer
        'processing stringcode here...
        'add to name total 
        nameTotal += CInt(str_nameValue)
        'do the same for the other column
        Dim str_priceValue As String = row.Item("Price").ToString()
        str_priceValue = str_priceValue.Remove("$")
        'sum
        priceTotal += CInt(str_priceValue)
    Next
    'for loop is finished, add a new row with the values 
    'add row to table with a parameter of total values, and an empty one for the second column 
    DGV.Rows.Add(nameTotal & " hot dog " & priceTotal & "$", " ")

您应该负责格式化字符串以满足您的需求。