0

これについて本当に助けが必要です...私は2つのフォームForm1とを持っていForm2ます。で私はForm2フィルターDGVTextboxchanged event

TBC コード

Dim dvSection As DataView
    Dim tableAdapter As New testDataSetTableAdapters.testingTableAdapter
    Dim ds As New testDataSet
    dv.Table = TestDataSet.testing
    dv.RowFilter = "CONVERT(TransactionID, System.String) LIKE '%" & TextBox1.Text & "%'"
    TestingDataGridView.DataSource = dv

dvをの new としてDataSource割り当てることにより、フィルター処理されたデータを返しForm1 DGVます。

このコードは動作します

    Form1.TestingDataGridView1.DataSource = dv

私の質問では、Form1（フィルタリングされたデータを使用）。私はしたいEdit、そして私の。私はこれまでにこれをやったことがないので、この原因について本当に混乱しています。私は通常、 ff コードを使用して自分のとを使用します。この状況では、ffコードは機能しません。dataDGVUpdateMySql Table "testing"UpdateDGVMySql Table

 If MsgBox("Save Changes Made in this Cell?", MsgBoxStyle.YesNo, MsgBoxStyle.Exclamation) = DialogResult.Yes Then
        Me.Validate()
        Me.TestingBindingSource.EndEdit()
        Me.TestingTableAdapter.Update(Me.TestDataSet.testing)

    End If

私は今本当に混乱しています。少しの助けが本当にいいでしょう。よろしくお願いします。

4

1 に答える 1

0

ようやくデータ ビューを更新できるようになりました...誰かが助けを必要とする場合に備えて、将来の参照用にコードをここに投稿させてください。これはサンプル プロジェクトなので、コードにはあまり触れずに、どのように解決したかを直接説明しました。

Form1もっているDatagridview(databound), 1 button "Form2"

フォーム 1 のコード

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        `TODO: This line of code loads data into the TestDataSet.testing table. You can move, or remove it, as needed.`

        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        ' Me.Hide()'
        Me.TestingBindingSource.DataSource = TestDataSet
        Me.TestingTableAdapter.Dispose()
        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)

    End Sub

    Private Sub TestingDataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TestingDataGridView1.CellEndEdit

        If MsgBox("Save Changes Made in this Cell?", MsgBoxStyle.YesNo, MsgBoxStyle.Exclamation) = DialogResult.Yes Then
            Me.Validate()
            Form2.TestingBindingSource().EndEdit()
            Me.TestingTableAdapter.Update(Me.TestDataSet.testing)

        End If
    End Sub
End Class

Form2もっているDGV (databound), 2Buttons, "Return", "Save", and a textbox

 Private Sub TestingBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestingBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TestingBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TestDataSet)

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the TestDataSet.testing table. You can move, or remove it, as needed.'
        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Dim tableAdapter As New testDataSetTableAdapters.testingTableAdapter
        Dim ds As New testDataSet

        dv.Table = TestDataSet.testing
        dv.RowFilter = "CONVERT(TransactionID, System.String) LIKE '%" & TextBox1.Text & "%'"
        TestingDataGridView.DataSource = dv
        Form1.TestingDataGridView1.DataSource = dv

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form1.Show()
        Me.Hide()

        Me.TestingTableAdapter.Dispose()
        Me.TestingTableAdapter.Fill(Me.TestDataSet.testing)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Save Changes Made in this Cell?", MsgBoxStyle.YesNo, MsgBoxStyle.Exclamation) = DialogResult.Yes Then
            Me.Validate()
            Me.TestingBindingSource.EndEdit()
            Me.TestingTableAdapter.Update(Me.TestDataSet.testing)

        End If
    End Sub
于 2012-11-09T03:51:21.900 に答える