Q&A
コードは ``` と ``` で囲ってください。インデントされて見やすくなりますので。
前提
VB.NET全くのド素人の者です。初めて質問させていただきます。
現在BMIの計算アプリを作っていまして、その計算結果などをdatagridviewに表示させ、保存ボタンを押すことでcsv形式でローカルに名前を付けて保存することができるようにしました。
教えていただきたいこと
そこで今度は逆に読み込みボタンを押してローカルに保存してあるcsvファイルを選択し、datagridviewに表示させる機能を付けたいのですが、どこのサイトを見てもやり方を見つけることが出来ませんでした。具体的なコードなどを教えていただけると幸いです。
追記
http://bbs.wankuma.com/index.cgi?mode=al2&namber=90559
時間がなかったため、こちらのサイトでも同時並行で同じアプリの質問をしていました。
Public Class Form1 Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Me.Close() End Sub Private Sub btnBMI_Click(sender As Object, e As EventArgs) Handles btnBMI.Click Dim Height As Double = txtHeight.Text Dim Weight As Double = txtWeight.Text Dim Name As String = txtName.Text Dim BMI As Double If Height > 0 AndAlso Weight > 0 Then lblerror.Text = "" BMI = Weight / ((Height / 100) * (Height / 100)) txtBMI.Text = BMI.ToString("0.0")``` '有効数字以下は四捨五入される '肥満度判定 If txtBMI.Text >= 25 Then lblHimando.Text = "肥満" ElseIf txtBMI.Text < 25 AndAlso txtBMI.Text >= 18.5 Then lblHimando.Text = "普通" ElseIf txtBMI.Text < 18.5 Then lblHimando.Text = "痩せ" End If '肥満度によって文字の色を変更 If lblHimando.Text = "肥満" Then lblHimando.ForeColor = Color.Red ElseIf lblHimando.Text = "痩せ" Then lblHimando.ForeColor = Color.Blue End If '0以下が入力された時にエラーメッセージを表示 Else lblerror.Text = "正しい値を入力してください" lblHimando.Text = "" End If End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub btnTouroku_Click(sender As Object, e As EventArgs) Handles btnTouroku.Click If txtBMI.Text = "" Then lblerror.Text = "計算してください" Else Dim idx As Integer = DataGridView1.Rows.Add() DataGridView1.Rows(idx).Cells(0).Value = idx DataGridView1.Rows(idx).Cells(1).Value = txtName.Text DataGridView1.Rows(idx).Cells(2).Value = txtHeight.Text DataGridView1.Rows(idx).Cells(3).Value = txtWeight.Text DataGridView1.Rows(idx).Cells(4).Value = txtBMI.Text End If End Sub Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CsvFileSave("BMIﾃﾞｰﾀ.csv") End Sub Dim FileName As String Public Property OpenFileDialog1 As Object Private Sub CsvFileSave(ByVal SaveFileName As String) ' 「名前を付けて保存」ダイアログを使う方法 Using sfd As New SaveFileDialog sfd.FileName = "BMIﾃﾞｰﾀ.csv" sfd.Filter = "CSV(*.csv)|*.csv" sfd.CheckPathExists = True sfd.OverwritePrompt = True If sfd.ShowDialog() <> Windows.Forms.DialogResult.OK Then Exit Sub End If FileName = sfd.FileName End Using CsvFileSave(FileName) End Sub ```
囲い方が間違ってます。以下のようにコートの一番最初の行の上と一番最後の行の下に ``` を追加するのです。
```
Public Class Form1
・・・中略・・・
End Class
```
わんくま掲示板とのマルチポストですよね。ここにもルールがあるのですよ。そういうのは止めませんか？
https://teratail.com/help#posted-otherservice
回答1件
0
ベストアンサー
CSV形式のファイルをDataTableや配列等として取得する
DataTable にして DataGridView の DataSource に突っ込めば表示されます。
投稿2019/03/18 15:08
総合スコア28662
ご回答ありがとうございました。以下のコードでcsvファイルをdatatableとして読み込み、datagridviewのdatasourceに配置することで表示することは出来たのですが、なぜか空白の行と列が追加され、その横に表示されるようになってしまいます。どこを修正すれば良いか教えていただきたいです。
VB.NET
Public Class Cls_CSV2Table
Public Function CsvToTable(d_FilePass As String) As DataTable
'フルパスからディレクトリのみ取り出す
Dim csv_Dir As String = System.IO.Path.GetDirectoryName(d_FilePass)
'フルパスからディレクトリのみ取り出す
Dim csv_File As String = System.IO.Path.GetFileName(d_FilePass)
'接続文字列
Dim conString As String =
"Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
+ csv_Dir + ";Extensions=asc,csv,tab,txt;"
Dim con As New System.Data.Odbc.OdbcConnection(conString)
Dim commText As String = "SELECT * FROM [" + csv_File + "]"
Dim my_Da As New System.Data.Odbc.OdbcDataAdapter(commText, con)
'DataTableに格納する
Dim my_Dt As New DataTable
my_Da.Fill(my_Dt)
Return my_Dt
End Function
Friend Sub Close()
Throw New NotImplementedException()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim class_csv2table As New Cls_CSV2Table
Dim csv_Daityou As DataTable = class_csv2table.CsvToTable(”D:\BMI.csv")
DataGridView1.AutoGenerateColumns = True ' ここを False にすると表示しない
DataGridView1.DataSource = csv_Daityou
End Sub
こちらで問題が確認できなければ修正できません。
新しくプロジェクトを作り、問題の再現する最小のソースを作ってください。
またコードはこんなところに書かれても読む気になりません。
質問に追記してください。
そしてコードとともに問題の再現する最小のデータも渡してください。
まとめ
1．問題が再現してコンパイルできる最小のコードとデータを作る
2．質問を編集してコードブロックを使いそれらを提示する
次に何か質問する時もこのようにしてください。
多分、デザイナーでDataGridViewの列を作成されているのでしょう。
なので、デザイナーで作成した列の後ろにCSVの列が作成されて表示されているのだと思います。
デザイナーで列を作成せず、AutoGenerateColumnsはTrueの状態で
DataSourceを設定してください。
列の見出しを変更するのであれば、DataSourceを設定した後に変更してください。
なるほど、「空白の行と列が追加される」のではなく「もともとあった空白の列が残る」ですか。
もしそうならデザイナで列を編集して DataPropertyName を適切に設定することでも対応できます。
お二方、ご回答ありがとうございます。ご指摘の通り、もともとあった空白の列の後ろにcsvの列に追加されていました。BMIなどのデータをテキストボックスに入力し、登録ボタンでdatagridviewに追加するときにデザイナーであらかじめ列を作成していないと追加できないのですが、どうすればよいでしょうか?
解決策が二つ書いてあります。
自動的に列を設定するなら列をすべて削除して AutoGenerateColumns を true に、そうでないなら DataPropertyName を設定ということです。
DataPropertyNameを設定する場合、デザイナーで作成したDataGridViewの列の名前と同じに設定すれば良いということでしょうか?
DataPropertyName をデザイナーで設定します。値は「なにもしなければ新しく増えるはずの列名」と同じものにしてください。
ご回答ありがとうございました。上手くdatagridviewに表示させることが出来ました。お世話になりました。
わんくま掲示板とのマルチポストですよね。ここにもルールがあるのですよ。そういうのは止めませんか？
https://teratail.com/help#posted-otherservice
質問を編集して、マルチポストである旨を明記してリンクを貼り、またマルチポスト先にも同様の手続きをしてください。
そしてどちらかで解決した場合には必ず双方に報告してください。これが最低限で、あとはマルチポスト先の規約やガイドラインを尊重してください。
あなたの回答
tips
プレビュー
