将 Datagridview1(Table1) 中的值相加并将其保存到 Datagridview2(Table2) 使用 Linq 和 MySql

Question

我正在尝试对 Datagridview1(Table1) 中的值求和并将其保存到 Datagridview2(Table2)

DGVs 都是 Databound 并且都具有相同的 2 列 Name, Quantity。

在Childform1(DGV1) 上，我有一个Textbox1 和一个Post 按钮。

用户必须在Textbox1 上输入Name 并单击Post，然后必须将DGV1 上的所有Quantity 与Textbox1 上输入的Name 相加。

例如：

表 1

Name | Quantity
 a       10
 b        5
 a       10
 b        5

按下POST按钮后

表 2

Name | Quantity
 a        20
 b        10

代码

    Dim occurences As New Dictionary(Of String, Double)
    Dim oTempObjects As New List(Of DataGridViewRow)

    MasterForm.oTransferRows = oTempObjects

    For Each xRow As DataGridViewRow In Datagridview1.Rows

        If (Not xRow.Cells("GVName").Value Is Nothing AndAlso xRow.Cells("GVName").Value.ToString() = TextBox1.Text) Then

            oTempObjects.Add(xRow)
        End If
    Next

    Dim _Name As New List(Of String)

    For Each xRows In MasterForm.oTransferRows

        _Name.Add("'" & xRows.Cells("GVName").Value.ToString() & "'")


        Dim inClause1 As String = String.Join(",", _Name.ToArray())
        Dim _sqlUpdate As String = String.Format("UPDATE tested SET Posted = @Posted WHERE Name IN ({0})", inClause1)

        Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
            Using _commm As New MySqlCommand()
                With _commm

                    .CommandText = _sqlUpdate
                    .Connection = _conn
                    .CommandType = CommandType.Text
                    .Parameters.AddWithValue("@Posted", "Yes")

                End With
                Try

                    _conn.Open()
                    _commm.ExecuteNonQuery()

                Catch ex As MySqlException

                    MsgBox(ex.StackTrace.ToString)

                End Try

                _conn.Close()

            End Using
        End Using

        If (occurences.ContainsKey(xRows.Cells(1).Value.ToString())) Then

            occurences(xRows.Cells(1).Value.ToString()) = Double.Parse(occurences(xRows.Cells(1).Value.ToString()).ToString()) + Double.Parse(xRows.Cells(4).Value.ToString())

        Else

            occurences.Add(xRows.Cells(1).Value.ToString(), Double.Parse(xRows.Cells(4).Value.ToString()))
        End If

    Next

    For Each KVP As KeyValuePair(Of String, Double) In occurences
        oChildForm2.DataGridView2.Rows.Add(New Object() {KVP.Key, KVP.Value})
    Next

    Dim xlist As List(Of KeyValuePair(Of String, Double)) = occurences.ToList

    For Each pair As KeyValuePair(Of String, Double) In occurences


        Dim oUpdateString = String.Format("Insert Into testing (Name, Quantity) VALUES (@iName, @iQty)")
        Using _conn As New MySqlConnection("Server = localhost; Username= root; Password =; Database = test")
            Using _commm As New MySqlCommand()
                With _commm

                    .CommandText = oUpdateString
                    .Connection = _conn
                    .CommandType = CommandType.Text
                    .Parameters.AddWithValue("@iName", pair.Key)
                    .Parameters.AddWithValue("@iQty", pair.Value)
                End With
                Try

                    _conn.Open()
                    _commm.ExecuteNonQuery()

                Catch ex As MySqlException

                    MsgBox(ex.StackTrace.ToString)

                End Try

                _conn.Close()

            End Using
        End Using
    Next

此代码仅在第一次单击时对 DGV1 上的相同名称求和，并将其保存在 DGV2 上。

但例如我在DGV1 上添加了另一个同名的数据，

我希望将新添加的数据的 QUANTITY 添加到 DGV2 上现有数据的当前总和中。

这方面的一点帮助也将非常棒。**

例如：

表 2

Name | Quantity
 a       20
 b       10

然后我在表 1 上添加数据

表 1

Name | Quantity
  a       20
  b       10

发帖后

表2

Name | Quantity
 a        40
 b        20

Answer 1

在遍历行时检查已发布列，以查看是否已发布行：

For Each xRows In MasterForm.oTransferRows.Where(Function(x) x.Cells("Posted").Value.ToString() = "No")

然后使用以下伪逻辑来编写您的代码：

 'code to select data - select name from testing where name = 'Product1'
 'if(dr.Read())
 'update goes here
 'Else
 ' insert goes here
 'End if