1

これについて助けが必要です。できる限り詳細に説明しようと思います。

列にあるForm1がDatagridview1 (DGV1)あるDataBoundとしましょう。Table1TransactionNumber(Double), FormName (varchar), Description(varchar), Posted(text)

には、列に関連するForm2別のDGV2ものがあります。DataBoundTable2TransactionNumber(Double), Formname(VarChar), Description(VarChar), Quantity(Double)

で、列と 2 つのボタンにデータForm1をTextboxes追加する必要があります。クリックすると、指定された を含むすべてのデータをループして検索し、それらのデータをin にコピーします。DGV1Add and PostPostDGV1TransactionNumberDGV2Form2

これについて本当に助けが必要です..どんな種類のヒントや助けも大歓迎です. よろしくお願いします！

私はまだこれを行う方法を理解しようとしているので、ボタン投稿のコードをまだ持っていません...コードでこの投稿をできるだけ早く更新するつもりです..

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親フォームと2つの子フォームを持つプロジェクトです。それぞれに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 に答える