VB2010でデータグリッドビューを使用したいのですが、
下記のコードを実行すると、
※エラー1「指定された列は DataGridView コントロールに既に属しています。」がでます。
列インデックスがいるのかなと、コードを追加してみると
※エラー2「プロパティIndexはReadOnlyです」がでました。
どう直せばよいかわかるかた教えてください。
どうぞよろしくお願いします。
変数に入っているもの
系列数=2
系列名(0)=deg
系列名(1)=V
系列名(2)=P
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "データビュー"
'初期化
Me.DataGridView1.Columns.Clear()
'列追加
Dim i, j As Long
Dim TBColumn As New DataGridViewTextBoxColumn()
For i = 0 To 系列数
TBColumn.Name = 系列名(i)
TBColumn.Index = i '←※エラー2 エラー後に追加してみた
Me.DataGridView1.Columns.Add(TBColumn) '←※エラー1
Next i
'行追加
Me.DataGridView1.RowCount = データ数
'データ追加
For j = 1 To データ数
For i = 0 To 系列数
Me.DataGridView1(系列名(i), CInt(j - 1)).Value = グラフデータ(i, j)
Next i
Next j
'列幅設定
For i = 0 To DataGridView1.Columns.Count - 1
Me.DataGridView1.Columns(i.ToString).Width = 30
Next i
End Sub
End Class
No.1ベストアンサー
- 回答日時:
DataGridViewのカラムを自前で作るなら そのForループの中でインスタンスを生成しましょう
Dim TBColumn As New DataGridViewTextBoxColumn()
For i = 0 To 系列数
TBColumn.Name = 系列名(i)
TBColumn.Index = i '←※エラー2 エラー後に追加してみた
Me.DataGridView1.Columns.Add(TBColumn) '←※エラー1
Next i
では無くて
For i = 0 To 系列数
' ココで生成
Dim TBColumn As New DataGridViewTextBoxColumn()
TBColumn.Name = 系列名(i)
' Indexは カラムを生成しDataGridViewに追加してから使用するプロパティのようです
' ReadOnly属性になっているので =の右辺には記述できますが =左辺(つまり設定)は出来ません
'TBColumn.Index = i '←※エラー2 エラー後に追加してみた
Me.DataGridView1.Columns.Add(TBColumn) '←※エラー1
Next i
エラーが発生しているのであればそのエラーメッセージも質問と同時に投稿したほうがいいでしょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
DataGridViewのコンボボックスの初期値について
Visual Basic(VBA)
-
DataTableに入っているデータを全てinsertしたい!(C#)
Microsoft ASP
-
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
-
4
DataGridViewに空白がある場合はエラーにしたい
Visual Basic(VBA)
-
5
正整数の半角数字かどうか判定する
Visual Basic(VBA)
-
6
DataGridViewで指定したセルの値を取得
Visual Basic(VBA)
-
7
DataGridView 複数行同時変更について
C言語・C++・C#
-
8
[VB.net] DataGridViewの列ヘッダー複数行表示に伴う不具合?について
Visual Basic(VBA)
-
9
データセットのレコード更新がしたい
Visual Basic(VBA)
-
10
コンボボックスでドロップダウンリストにしたときに・・・・
Visual Basic(VBA)
-
11
vb.netで画面のコントロールId名を変数で動的に制御し処理する方法
Visual Basic(VBA)
-
12
DataGridViewのセル編集完了後に値を設定するには
Visual Basic(VBA)
-
13
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
14
DataGridViewの、選択されている行を取り出したい
Visual Basic(VBA)
-
15
VB.NETでフォーム上にExcelのような表を表示する方法
Visual Basic(VBA)
-
16
DatagridViewの値確定
Visual Basic(VBA)
-
17
C#「オブジェクト参照が必要です」(初心者)
その他(プログラミング・Web制作)
-
18
DataGridViewに複数テーブルのデータをセットしたい
Visual Basic(VBA)
-
19
GridView表示の高速化
Visual Basic(VBA)
-
20
VB.net、テキストボックス入力制限、全角のみ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
On ErrorでエラーNoが0
-
SQLでエラーです。
-
【VBA】ワークブックを開く時に...
-
教えてください。FTPアップロー...
-
Filter関数を用いた結果、何も...
-
error C2664: 'LPCTSTR' に変換...
-
pythonで、elseなどを連続させ...
-
実行時エラー 438 の解決策をお...
-
マクロの「SaveAs」でエラーが...
-
VBA データ(特定値)のある最...
-
For文によるセル結合について
-
VBでSQL文のUPDATE構文を使った...
-
Findプロパティを取得できません
-
ActiveCell.FormulaR1C1の変数
-
CATIA注釈について教えて下さい。
-
String""から型'Double'への変...
-
VBAのSelectedIndexでコンパイ...
-
ACCESS2007 VBA 「INSERT INTO...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報