tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: datagridviewの再表示
投稿日: 2008/08/29(Fri) 11:41
投稿者マリオ
コードを記載します。
FormAのBTN_修正ボタンクリック時にrefresh()してエラーでした。

<FormAで記述しているCD>
■DataGridViewへのデータ表示
Private Sub BTN_Data表示ボタン_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Data表示ボタン.Click
        Dim strsql As String
        Try
            '---DB接続
            Call DBConnect()
            strsql = "SELECT コード, 氏名 FROM Aテーブル ORDER BY コード"
            Dim comm As SqlCommand = New SqlCommand(strsql, Con)
            Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm)
            dataadapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            Dim ds As DataSet = New DataSet()
            dataadapter.Fill(ds, "テーブル")
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "テーブル"
        Catch oExcept As Exception
            MessageBox.Show(oExcept.ToString, "例外発生")
        Finally
            '---DB切断
            Call Disconnect()
        End Try
End Sub

■DataGridViewのデータを選択しFormBを開く
    Private Sub BTN_修正_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_修正.Click
        Dim f As New FormB()        
        '〜選択された主キーの値を引数で渡す処理〜
        f.ShowDialog()
        f.Dispose()
        '---DataGridViewの再表示
        DataGridView1.refresh()     ←ここでエラー
    End Sub

<FormBで記述しているCD>
■FormBに表示しているデータを登録する
    Private Sub BTN_登録_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_登録.Click
        Dim strsql As String
        Dim Tran As SqlClient.SqlTransaction
        '---DB接続
        Call DBConnect()
        strsql = "SELECT * FROM テーブル"
        Dim comm As SqlCommand = New SqlCommand(strsql, Con)
        Tran = Con.BeginTransaction()
        comm.Transaction = Tran
        Try
            Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm)
            Dim ds As DataSet = New DataSet()
            dataadapter.Fill(ds, "テーブル")
            Dim dt As New DataTable
            dt = ds.Tables("テーブル")
            dt.PrimaryKey = New DataColumn() {dt.Columns("コード")}
            Dim targetRow As DataRow
            targetRow = dt.NewRow()
            targetRow = dt.Rows.Find(TXT_コード.Text)
            targetRow("コード") = TXT_コード.Text
            targetRow("氏名") = TXT_氏名.Text
            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(dataadapter)
            dataadapter.Update(ds, "テーブル")
            Tran.Commit()
        Catch oExcept As Exception
            Tran.Rollback()
            MessageBox.Show(oExcept.ToString, "例外発生")
        Finally
            '---DB切断
            Call Disconnect()
        End Try
        Me.Close()
    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。