タイトル | : 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
|