1

我需要这方面的帮助,我会尽可能详细地解释它。

假设Form1我有一个与Datagridview1 (DGV1)columns相关的内容。DataBoundTable1TransactionNumber(Double), FormName (varchar), Description(varchar), Posted(text)

Form2,我有另一个DGV2DataBoundTable2TransactionNumber(Double), Formname(VarChar), Description(VarChar), Quantity(Double)

Form1我必须Textboxes将数据添加到 Columns inDGV1和 2 Buttons Add and Post。当我单击时,Post我想遍历DGV1并找到给定的所有数据TransactionNumber,然后将这些数据复制到DGV2in Form2

我真的需要帮助。任何提示或帮助将不胜感激。谢谢,麻烦您了!

我仍然没有按钮帖子的代码,因为我仍在试图弄清楚如何做到这一点......我将尽快用代码更新这篇文章..

PS还在学习

新问题,但仍与原始问题相关

我调整了你的代码,它现在添加了数据。

我也可以以 mdi 形式使用它吗?

Dim occurences As New Dictionary(Of String, Double)

For Each DGVR As DataGridViewRow In Datagridview1.Rows

    If (Not DGVR.IsNewRow) Then

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

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

        Else

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

    End If

Next


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


    DataGridView2.Rows.Add(New Object() {KVP.Key, KVP.Value})

Next
4

1 回答 1

2

不要为此讨厌我,因为这是我在这么短的时间内能做的最好的事情:

http://www.fileswap.com/dl/KusycS0QTC/

基本上它是一个具有 MDI 父窗体和两个子窗体的项目。我每个人都有一个 DGV,我将信息从一种形式转移到另一种形式。您必须进行必要的编辑以说明您的设置,但这应该足以让您了解如何去做您所追求的。

编辑:

可能的变化:

     Dim _Name As String = ""
     Dim _Last As String = ""

      For Each xRow In MasterForm.oTransferRows
            _Name = xRow.Cells("GVName").Value.ToString()
            _Last = xRow.Cells("GVLast").Value.ToString()

'应该插入下一行吗?

            Dim _sqlInsert As String = String.Format("Insert testing(Name, LastName) Values  (@iName, @iLast)")
            Using conn As New SqlClient.SqlConnection("Server = localhost; Username= root; Password =; Database = test")
                Using cmd
                    With cmd
                        MsgBox("Connection Established")
                        .Connection = conn
                        .Parameters.Clear()
                        'Create Insert Query
                        .CommandText = _sqlInsert

                        .Parameters.Add(New SqlParameter("@iName", _Name))
                        .Parameters.Add(New SqlParameter("@iLast", _Last))
                    End With
                    Try
                        conn.Open()
                        Me.Validate()
                        cmd.ExecuteNonQuery()
                    Catch ex As Exception
                        MsgBox(ex.Message.ToString())
                    End Try
                End Using
            End Using

        Next

在此处输入图像描述

于 2012-11-20T17:00:58.940 回答