VB.NET　データを追加した際、DataGridViewを再表示した時最後の列に表示されてしまう

テーブルからデータを取得し、列の値が全てNULLだった場合はDataGridViewに表示しないようなものを作成しているのですが、
データを追加した際、再表示の処理を挟むと追加したデータが最後の列に表示されてしまいます。DataGridViewを初期化してデータを入れればいいと思ってましたが、出来ませんでした。
SQL文で書いた通りの順番にしたいのですが、何か方法がありましたら教えてください。

・データ追加前
|検査員|キズ|異物|備考|書込日|
|:--|:--:|--:|
|A|1|2||2021/02/04|
|B|3|4||2021/02/05|

・データ追加して再表示処理を挟んだ後(下記コード)
|検査員|キズ|異物|備考|書込日|欠け|
|:--|:--:|--:|
|A|1|2||2021/02/04||
|B|3|4||2021/02/05||
|C|3|4||2021/02/05|1|

・このように表示したい
|検査員|キズ|異物|欠け|備考|書込日|
|:--|:--:|--:|
|A|1|2|||2021/02/04|
|B|3|4|||2021/02/05|
|C|3|4|1||2021/02/05|

###コード

VBNET
1    'DataGirdView表示処理
2
3    Private Cn As New SqlConnection()
4    Private DaAdap As SqlDataAdapter
5    Private DaSet As New DataSet()
6    Private cmd As New SqlCommand
7    'DataGridView表示処理
8    Private Sub SetTable()
9        'DB接続
10        Call OpenDataBate()
11        cmd.Connection = Cn
12
13        '不良項目の取得
14        Dim AL(10) As String
15        Dim huryo_query As String
16        Dim baditem As String
17        baditem = ""
18        For i = 1 To 10 Step 1
19            huryo_query = "SELECT TOP 1 [不良項目" & i & "] FROM kensa WHERE 呼び出しコード LIKE '" & KensaMenu.Kensa_CN & "' AND [不良項目" & i & "] IS NOT NULL"
20            cmd.CommandText = huryo_query
21            AL(i) = cmd.ExecuteScalar
22            If Not String.IsNullOrEmpty(AL(i)) Then
23                baditem &= "[不良値" & i & "],"
24            End If
25        Next
26
27        'SQL文
28        Dim query As String
29        query = ""
30        query &= "[検査員],"
31        query &= baditem
32        query &= "[備考],"
33        query &= "[書込日],"
34
35        DaAdap = New SqlDataAdapter("select " & query & " from [kensa] WHERE 呼び出しコード LIKE '" & KensaMenu.Kensa_CN & "' ORDER BY ID", Cn)
36
37        'DataGridView初期化
38        DaSet.Clear()
39        DataGridView1.DataSource = Nothing
40        'DataGridViewへデータを入れる
41        DaAdap.Fill(DaSet)
42        DataGridView1.DataSource = DaSet.Tables(0)
43
44        '不良詳細の項目をヘッダーに反映
45        For i = 1 To 10 Step 1
46            If Not String.IsNullOrEmpty(AL(i)) Then
47                DataGridView1.Columns("不良値" & i).HeaderText = AL(i).ToString()
48            End If
49        Next
50        
51        'クローズ
52        Call CloseDataBase()
53
54        'プロパティ変更
55        省略
56        
57    End Sub

VBNET
1    'テーブル書込みと再表示
2
3    Private Sub Save_ReLoad_Click(sender As Object, e As EventArgs) Handles Save_ReLoad.Click
4        'フォームに書かれた値をテーブルに書き込む
5        省略
6
7        'DataGridView再表示
8        Call SetTable()
9    End Sub

ちなみに、最初のロード時はきちんと動いて希望通りの順番になります。

VBNET
1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
2
3        'DataGridView読み込み
4        Call SetTable()
5
6    End Sub

退会済みユーザー

2021/02/05 07:21

未検証未確認なのでコメント欄に書きますが・・・ DataGridView ⇔ BindingSource ⇔ DataTable という構成にして、BindingSource の Insert メソッドを使って以下のようにしたらどうなりますか？ this.bindingSource1.Insert(0, item);

nuko3

2021/02/05 07:31

すみません、VBに関しては素人なので、その構成のやり方がわかりません… 一応正解かどうか分かりませんが、自己解決しましたので、こちらでやっていきます。ありがとうございました。

行動規範の内容に同意します

回答1件

自己解決

【VB.NET】DataSet（データセット）から DataTable（データテーブル）を削除する方法
 【VB.NET 】データセット DataSet　破棄　について　 DataSet.Dispose , DataSet.Clear , DataSet=Nothing　の比較。

こちらのブログを参考にすると行けました。

VBNET
1  
2        DaSet.Clear()
3        '~~~~~ここを追加~~~~~
4        If Not DaSet.Tables.Count = 0 Then
5            DaSet = New DataSet
6        End If
7        '~~~~~~~~~~~
8        DataGridView1.DataSource = Nothing
9        DaAdap.Fill(DaSet)
10        DataGridView1.DataSource = DaSet.Tables(0)
11