| | タイトル | : Re^2: datagridviewの再表示 |  | 記事No | : 8037 |  | 投稿日 | : 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
 
 |