VB2010でデータグリッドビューに列追加

2023/08/10 19:31

このQ&Aのポイント

VB2010でデータグリッドビューに列を追加する方法を教えてください。
コードを実行すると「指定された列は DataGridView コントロールに既に属しています」というエラーが発生します。
また、「プロパティIndexはReadOnlyです」というエラーも発生します。これらのエラーを修正する方法を教えてください。

ベストアンサー

VB2010でデータグリッドビューに列追加

2010/12/17 16:15

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

ddtqp
お礼率68% (139/203)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

redfox63
ベストアンサー率71% (1325/1856)

2010/12/18 03:22 回答No.1

DataGriｄViewのカラムを自前で作るならその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 エラーが発生しているのであればそのエラーメッセージも質問と同時に投稿したほうがいいでしょう

質問者

お礼 2010/12/20 11:41

丁寧なご回答ありがとうございます。ばっちり解決できました。

関連するQ&A

データグリッドビューの任意の列を削除
ＶＢ2010にて、下記のコードを実行すると、左端にいらない列が表示されます。左端にコンボボックスを表示したいのですが、うまくいきません。左端の列を削除する方法。または、左端にコンボボックスを表示する方法を教えていただけませんでしょうか。ご存知の方、どうぞよろしくお願いいたします。 '■■■データグリッドビューセット■■■ '初期化 Me.DataGridView1.Columns.Clear() '最下部の新しい行を非表示 Me.DataGridView1.AllowUserToAddRows = False '行追加 Me.DataGridView1.RowCount = 気筒数 + 2 'コンボボックス列を追加 Dim i As Integer Dim BS As New BindingSource() For i = 1 To 系列数 BS.Add(系列名(i)) Next i Dim ComboBox As New DataGridViewComboBoxColumn() ComboBox.HeaderText = "系列名を選択" ComboBox.DataSource = BS Me.DataGridView1.Columns.Add(ComboBox) Me.DataGridView1.Columns(0).Width = 110
- ベストアンサー
- Visual Basic
DataTableのデータを保存したい
VB初心者です VB2008を使用してカロリー計算ができるプログラムを作成しています DataTableに摂取カロリーと消費カロリーをユーザが追加でき、そのDataTableのデータをCSVファイルとして保存しようと考えていますこちらのサイトhttp://pckowaza.web.fc2.com/html/vbdotnet_datagridview_savetocsv.html からコピーしてやってみたのですが Public Sub SaveToCsv(tempDgv As System.Windows.Forms.DataGridView)' のパラメータ 'tempDgv' に対して引数が指定されていません。とエラーが出ますどこを直せば良いのでしょうか？以下、プログラムです '保存したいDataGridViewコントロールの名前を引数として '設定します。 Public Sub SaveToCsv(ByVal tempDgv As DataGridView) 　　'1行もデータが無い場合は、保存を中止します。　　If tempDgv.Rows.Count = 0 Then 　　　　Exit Sub 　　End If 　　'変数を定義します。　　Dim i As Integer 　　Dim j As Integer 　　Dim strFileName As String 　　Dim strResult As New System.Text.StringBuilder 　　'保存ダイアログでファイル名を設定した場合に処理を実行します。　　If Me.sfdCsvFile.ShowDialog = _ 　　　　Windows.Forms.DialogResult.OK Then 　　　　'コラムヘッダを1行目に列記します。　　　　'※ヘッダ行が不要な場合は削除可能です。　　　　For i = 0 To tempDgv.Columns.Count - 1 　　　　　　Select Case i 　　　　　　　　Case 0 　　　　　　　　　strResult.Append("""" & _ 　　　　　　　　　tempDgv.Columns(i).HeaderText.ToString & """") 　　　　　　　　Case tempDgv.Columns.Count - 1 　　　　　　　　　strResult.Append("," & """" & _ 　　　　　　　　　tempDgv.Columns(i).HeaderText.ToString & _ 　　　　　　　　　"""" & vbCrLf) 　　　　　　　　Case Else 　　　　　　　　　strResult.Append("," & """" & _ 　　　　　　　　　tempDgv.Columns(i).HeaderText.ToString & """") 　　　　　　End Select 　　　　Next 　　　　'データを保存します。　　　　'※新規行の追加を認めている場合は、次行の　　　　「tempDgv.Columns.Count - 1」を　　　　'「tempDgv.Columns.Count - 2」としてください。　　　　For i = 0 To tempDgv.Rows.Count - 1 　　　　　　For j = 0 To tempDgv.Columns.Count - 1 　　　　　　　　Select Case j 　　　　　　　　　　Case 0 　　　　　　　　　　　strResult.Append("""" & _ 　　　　　　　　　　　tempDgv.Rows(i).Cells(j).Value.ToString & _ 　　　　　　　　　　　"""") 　　　　　　　　　　Case tempDgv.Columns.Count - 1 　　　　　　　　　　　strResult.Append("," & """" & _ 　　　　　　　　　　　tempDgv.Rows(i).Cells(j).Value.ToString & _ 　　　　　　　　　　　"""" & vbCrLf) 　　　　　　　　　　Case Else 　　　　　　　　　　　strResult.Append("," & """" & _ 　　　　　　　　　　　tempDgv.Rows(i).Cells(j).Value.ToString & _ 　　　　　　　　　　　"""") 　　　　　　　　End Select 　　　　　　Next 　　　　Next 　　　　'ファイル名を保存ダイアログで指定した値に設定します。　　　　strFileName = Me.sfdCsvFile.FileName 　　　　'Shift-JISで保存します。　　　　Dim swText As New System.IO.StreamWriter(strFileName, _ 　　　　　　False, System.Text.Encoding.GetEncoding(932)) 　　　　swText.Write(strResult.ToString) 　　　　swText.Dispose() 　　End If End Sub DataGridViewの定義？はこれです Designer.vbに書かれていたものです 'DataGridView1 ' Me.DataGridView1.AutoGenerateColumns = False Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.名前DataGridViewTextBoxColumn, Me.カロリーkcalDataGridViewTextBoxColumn}) Me.DataGridView1.DataSource = Me.DataTable1BindingSource3 Me.DataGridView1.Location = New System.Drawing.Point(424, 35) Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.RowTemplate.Height = 21 Me.DataGridView1.Size = New System.Drawing.Size(429, 422) Me.DataGridView1.TabIndex = 3 ' '名前DataGridViewTextBoxColumn ' Me.名前DataGridViewTextBoxColumn.DataPropertyName = "名前" Me.名前DataGridViewTextBoxColumn.HeaderText = "名前" Me.名前DataGridViewTextBoxColumn.Name = "名前DataGridViewTextBoxColumn" ' 'カロリーkcalDataGridViewTextBoxColumn ' Me.カロリーkcalDataGridViewTextBoxColumn.DataPropertyName = "カロリー(kcal)" Me.カロリーkcalDataGridViewTextBoxColumn.HeaderText = "カロリー(kcal)" Me.カロリーkcalDataGridViewTextBoxColumn.Name = "カロリーkcalDataGridViewTextBoxColumn" '
- 締切済み
- Visual Basic
VBのGUI　行列の和を求める
VBのGUIです。行列の足し算を行うプログラムをつくりたいです。以下のプログラムはできたところまで作成しています。 □個の□行□列（□はテキストボックス）の所に例えばユーザーが3　3　3と入力したとします。ボタン１を押すと3×3の3個個分のテキストボックスがでてきて、要素を打ち込めるようになります。そしてユーザが要素を打ち込みます。次に要素が 1 2 1 　2 1 2 　　2 1 2 2 1 2 　1 2 1 　　1 2 1 1 2 1 　2 1 2 　　1 2 1 というように入力されたとします。ボタン２を押すと３×３のテキストボックスが出てきてこの３つの行列の和を足した 5 4 5 4 5 4 4 5 4というようにテキストボックスに表示されるようにしたいです。３この３行３列の和だけでなく何個の何行何列の場合でもできるようにしたいです。どのようなソースでこのプログラムはできるのでしょうか。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Bounds = New Rectangle(10, 10, 1300, 800) Dim number As Integer Dim rows As Integer Dim columns As Integer If Not Integer.TryParse(TextBox3.Text, number) Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If Not Integer.TryParse(TextBox1.Text, rows) Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If Not Integer.TryParse(TextBox2.Text, columns) Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If For k = 1 To number For i = 1 To rows For j = 1 To columns Dim tb As TextBox = New TextBox() tb.Name = "R" & i.ToString() & "C" & j.ToString() & "No" & k.ToString() Me.Controls.Add(tb) tb.Top = (i - 1) * 30 + 80 tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10 tb.Width = 50 Next Next Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim number As Integer Dim rows As Integer Dim columns As Integer Dim r As Integer Dim n As Integer Dim m As Integer Dim sum As Double sum = 0 For n = 1 To columns For m = 1 To rows sum = 0 For r = 1 To number Next For i As Integer = 1 To rows For j As Integer = 1 To columns Dim tb As TextBox = New TextBox() tb.Name = "R" & i.ToString() & "C" & j.ToString() Me.Controls.Add(tb) tb.Top = (i - 1) * 30 + 80 tb.Left = (j - 1) * 60 + 10 tb.Width = 40 Next Next Next Next End Sub End Class
- 締切済み
- Visual Basic
VBプログラム　エラーが出ます
Public Class Form1 Private number As Integer Private rows As Integer Private columns As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not Integer.TryParse(TextBox1.Text, rows) OrElse _ Not Integer.TryParse(TextBox2.Text, columns) OrElse _ Not Integer.TryParse(TextBox3.Text, number) Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Me.Bounds = New Rectangle(10, 10, 1300, 800) Dim cnt As Integer = 0 For k As Integer = 1 To number For i As Integer = 1 To rows For j As Integer = 1 To columns Dim tb As TextBox = New TextBox() cnt += 1 tb.Name = "tb" + cnt.ToString() Me.Controls.Add(tb) tb.Top = (i - 1) * 30 + 80 tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10 tb.Width = 50 Next Next Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sum As Double Dim cnt As Integer = 0 For i As Integer = 1 To rows For j As Integer = 1 To columns Dim tb As TextBox = New TextBox() cnt += 1 : If cnt > rows * columns Then cnt = 1 tb.Name = "tbA" + cnt.ToString Me.Controls.Add(tb) tb.Top = (i - 1) * 30 + (80 + 40 * rows) tb.Left = (j - 1) * 60 + 10 tb.Width = 40 sum = 0 For k As Integer = 1 To number sum += Double.Parse(CType(Me.Controls("tb" + (cnt + (rows * columns * k-1))).ToString(), TextBox).Text)　　　　エラー Next tb.Text = sum.ToString() Next Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Do Until Me.Controls.Count <= 6 For Each tbD As Object In Me.Controls If CType(tbD, Control).Name Like "tb*" Then Me.Controls. Remove(tbD) Next Loop End Sub End Class エラーと書いている箇所どう直したらよいのでしょうか。縮小変換しないで呼び出されるアクセス可能なitemがないためオーバーロードの解決に失敗しましたと出ます。あとwindowsの画面の大きさを入力される値が小さければ少し小さいwindowsになるように変えたいのですがどうしたよいのでしょう。
- 締切済み
- Visual Basic
VBのプログラム
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not Integer.TryParse(TextBox1.Text, rows) OrElse _ Not Integer.TryParse(TextBox2.Text, columns) OrElse _ Not Integer.TryParse(TextBox3.Text, number) Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Me.Bounds = New Rectangle(10, 10, 1300, 900) Dim cnt As Integer = 0 For k As Integer = 1 To number For i As Integer = 1 To rows For j As Integer = 1 To columns Dim tb As TextBox = New TextBox() cnt += 1 tb.Name = "tb" + cnt.ToString() Me.Controls.Add(tb) tb.Top = (i - 1) * 20 + 70 tb.Left = (j - 1) * 50 + 60 * (columns * (k - 1)) + 5 tb.Width = 55 Next Next Next End Sub これはボタンを押すとテキストボックスに入力された値分だけテキストボックスが出てくるというものです。例えば３４４とテキストボックスに値が入力された場合３行４列が４個分テキストボックスが出てきます。しかし６６６と入力した場合画面に入りきらなくなってしまいます。大きな値を入力しても画面に入れたいです。これはスクロールなどしてできるようにしたいです。どのようなソースでできるのでしょうか。
- 締切済み
- Visual Basic
VB6→VS2005アップグレード後
いつもお世話になっております。 VBを勉強中です。 VB6→2005にアップグレード後、下記のエラーが発生しました。 "オブジェクト参照がオブジェクトインスタンスに設定されていません。" 以前もこちらでアドバイスをいただき、デザインの中でADDされているかどうかを確認し、解決に結びついたので今回も同様かと思い、色々と行ったのですが解決しません。 frmapli_S3のデザイナ内に下記が存在しましたが原因はここでしょうか？ CType(Me.Frame1, System.ComponentModel.ISupportInitialize).EndInit() 以下はVB6での正常稼動時のソースです。 Public Sub ShowPermValue() Dim Textbox As Textbox Dim i As Long: Dim j As Long: Dim k As Long For i = 0 To 19 For j = 1 To 8 k = i * 10 + j Set Textbox = frmapli_S3.Controls("text" & k) Textbox.Text = PermValue(k) Next Next End Sub Public Sub SetPermValue() Dim Textbox As Textbox Dim i As Long: Dim j As Long: Dim k As Long For i = 0 To 19 For j = 1 To 8 k = i * 10 + j Set Textbox = frmapli_S3.Controls("text" & k) PermValue(k) = Textbox.Text Next Next 下記はVB2005アップグレード時のソースです。 Public Sub ShowPermValue() Dim Textbox As TextBox Dim i, j, k As Integer For i = 0 To 19 For j = 1 To 8 k = i * 10 + j Textbox = CType(frmapli_S3.Controls("text" & k), TextBox) TextBox.Text = PermValue(k) Next Next End Sub Public Sub SetPermValue() Dim Textbox As TextBox Dim i, j, k As Integer For i = 0 To 19 For j = 1 To 8 k = i * 10 + j Textbox = CType(frmapli_S3.Controls("text" & k), TextBox) PermValue(k) = Textbox.Text　　　←ここでエラー Next Next End Sub
- 締切済み
- Visual Basic
VB2005 DataGridViewにチェックボックスを追加する方法
タイトル通りなのですが VB2005でDataGridViewにチェックボックスを追加したいです。 ############################################################### Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim chColumn As New DataGridViewCheckboxColmun DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).HeaderText = "1" DataGridView1.Columns(1).HeaderText = "2" DataGridView1.Columns(2).HeaderText = "3" DataGridView1.Columns.Insert(4, chColumn) End Sub End Class ############################################################## Dim chColumn As New DataGridViewCheckboxColmun ↑で'型'DataGridViewCheckboxColmunが定義されていませんとなってしまいます。どうすればよいでしょうか。。。。プログラム初めて1週間の初心者なのでお手柔らかによろしくお願いします。
- 締切済み
- Visual Basic
C# 列の挿入
どうしてもわからないことがありまして，datagridview上に列を追加しようとすると，「列のFillWeght値の合計が65535を超えることはできません」というエラーが出ます．追加する列数は8760列ですが，このエラーは列数が65535列を超えている？ということなのでしょうか？どうにも解決できないので，どなたかご教授願えないでしょうか? dataGridView1.Columns.Add("clmName1", "日付"); for (int n = 0; n < 8760; n++) { String ss1 = String.Format("Time{0}", n); String ss2 = String.Format("データ{0}", n); this.dataGridView1.Columns.Add(ss1, ss2); }
- ベストアンサー
- C・C++・C#
vb6で覚えたことがｖｂ2010で活かせれない。。
グラフの目盛表示をしたくて、ｖｂ2010で下記のコードを入力したのですが、何回やってもエラーがでます。どなたか教えてください。 --------------------------------- J = 0 For I = 0 To 200 Step 40 CurrentX = 120 CurrentY = 100 + I strB = CStr(0.2 - (2 / 5) * J * 0.1) Print strB J = J + 1 Next J = 0 For I = 0 To 200 Step 40 CurrentX = 120 CurrentY = 300 + I strB = CStr(0 - (2 / 5) * J * 0.1) Print strB J = J + 1 Next -------------------------------------
- 締切済み
- Visual Basic
VB添削
このプログラムは例えば３３４とテキストボックスに数字が打ち込まれると３×３行列が４個分のテキストボックスがでてきます。ここに数字を打ち込んでいき、ボタン２を押すと３×３のテキストトボックスが出てくると同時に足し算した結果が出てくるようにしたいです。以下のプログラムはできたところまで作成しています。どこを直せばよいのでしょうか。 Public Class Form1 Private number As Integer Private rows As Integer Private columns As Integer Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For i As Integer = 1 To 3 AddHandler Me.Controls("TextBox" & i).TextChanged, AddressOf TextBox_TextChanged Next End Sub Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If System.Text.RegularExpressions.Regex.IsMatch(CType(sender, TextBox).Text, "[^0-9]") Then MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) With CType(sender, TextBox) .Text = .Text.Substring(0, .Text.Length - 1) .SelectionStart = .Text.Length End With End If Dim cnt1 As Integer Dim cnt2 As Integer Dim cnt3 As Integer If Integer.TryParse(TextBox1.Text, cnt1) And Integer.TryParse(TextBox2.Text, cnt2) And Integer.TryParse(TextBox3.Text, cnt3) Then For k = 1 To cnt3 For i = 1 To cnt1 For j = 1 To cnt2 Dim tb As TextBox = New TextBox() tb.Name = "tb" + i.ToString() Me.Controls.Add(tb) tb.Top = (i - 1) * 28 + 55 tb.Left = (j - 1) * 30 + 40 * (cnt2 * (k - 1)) + 10 tb.Width = 25 Next Next Next End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Bounds = New Rectangle(10, 10, 1350, 800) Me.AutoScroll = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sum As Double Dim cnt As Integer = 0 For i As Integer = 1 To rows For j As Integer = 1 To columns Dim tb As TextBox = New TextBox() cnt += 1 : If cnt > rows * columns Then cnt = 1 tb.Name = "tb" + cnt.ToString Me.Controls.Add(tb) tb.Top = (i - 1) * 30 + (80 + 40 * rows) tb.Left = (j - 1) * 60 + 10 tb.Width = 40 sum = 0 For k As Integer = 1 To number sum += Double.Parse(CType(Me.Controls("tb" + (cnt + (rows * columns * (k - 1))).ToString()), TextBox).Text) Next tb.Text = sum.ToString() Next Next End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub End Class
- 締切済み
- Visual Basic