質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
.NET Framework

.NET Framework は、Microsoft Windowsのオペレーティングシステムのために開発されたソフトウェア開発環境/実行環境です。多くのプログラミング言語をサポートしています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

解決済

DataGridViewのソート(複数キー)がうまくいかない

iwaka
iwaka

総合スコア8

.NET Framework

.NET Framework は、Microsoft Windowsのオペレーティングシステムのために開発されたソフトウェア開発環境/実行環境です。多くのプログラミング言語をサポートしています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

1回答

0リアクション

0クリップ

292閲覧

投稿2022/09/07 03:46

編集2022/09/07 05:09

前提

vb.netでWindowsFormアプリケーションを作っています。
データベースからテーブルIDを取得してDataGridViewに表示させます。
configに書いてあるテーブルIDは出力対象チェックONの状態で表示します。
そのときにテーブルIDを全件表示するときは思い通り(出力対象チェックがONのテーブルIDを上位かつテーブルID順)にソートしてくれるのですが、検索してテーブルIDを絞るとソートが思い通りの順番になりません。
dv.sortの手前のdvの中身は正しいことが確認できたので、ソートに問題があると思っているのですが解決策がわかりません。

(例)
CE01
CE03
CE05
と表示したいのに
CE03
CE05
CE01
となってしまいます。

実現したいこと

DataGridViewにテーブルを表示するさいに、出力対象チェックがONのテーブルIDを上位かつテーブルID順で表示させたいです。

該当のソースコード

mainform

Private Sub GetTable_Click(sender As Object, e As EventArgs) Handles GetTable.Click Dim ret As Integer Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.Connection = _conn cmd.CommandText = "USE " & DBNAME.SelectedItem.ToString Try ret = cmd.ExecuteNonQuery Catch ex As Exception End Try If _dt IsNot Nothing Then _dt.Dispose() _dt = New DataTable End If If Not MainModule.Init(_conn, _dt, TableID.Text) Then MsgBox(_message3, MsgBoxStyle.Information) Exit Sub End If If _dt.Rows.Count > 0 Then GridView.DataSource = _dt GridView.ReadOnly = False GridView.Columns(0).HeaderText = "テーブルID" GridView.Columns(0).ReadOnly = True GridView.Columns(0).Width = 300 GridView.Columns(0).DisplayIndex = 1 GridView.Columns(1).HeaderText = "出力対象" GridView.Columns(1).Width = 80 GridView.Columns(2).Visible = False GridView.Columns(3).HeaderText = "ファイル№(DELETE)" GridView.Columns(3).Width = 80 DirectCast(GridView.Columns(3), DataGridViewTextBoxColumn).MaxInputLength = 3 GridView.Columns(3).ReadOnly = True GridView.Columns(4).Visible = False GridView.Columns(5).HeaderText = "ファイル№(INSERT)" GridView.Columns(5).Width = 80 DirectCast(GridView.Columns(5), DataGridViewTextBoxColumn).MaxInputLength = 3 GridView.Columns(5).ReadOnly = True GridView.Columns(6).Visible = False GridView.Columns(7).HeaderText = "作成結果" GridView.Columns(7).Width = 80 GridView.Columns(7).ReadOnly = True Else GridView.DataSource = Nothing MsgBox(_message3) Exit Sub End If Dim テーブルID As String() = My.Settings.テーブルID.Split(",") For i As Integer = 0 To GridView.Rows.Count - 1 For j As Integer = 0 To テーブルID.Length - 1 If GridView.Rows(i).Cells(0).Value = テーブルID(j) Then GridView.Rows(i).Cells(1).Value = True GridView.Rows(i).Cells(3).ReadOnly = False GridView.Rows(i).Cells(5).ReadOnly = False End If Next Next For i As Integer = 0 To GridView.Rows.Count - 1 If GridView.Rows(i).Cells(1).Value = True Then GridView.Rows(i).Cells(2).Value = 1 End If Next Dim dt1 As DataTable = CType(GridView.DataSource, DataTable) Dim dv As DataView = dt1.DefaultView dv.Sort = "DUMMY1 DESC, テーブルID ASC"

mainmodule

Public Function Init(ByRef conn As SqlConnection, ByRef dt As DataTable, ByVal tableId As String) As Boolean Init = False _errmsg = "" Try _conn = conn If Not Readパラメータ(dt, tableId) Then If _errmsg.Length > 0 Then Makelog() End If Return False End If If dt.Rows.Count > 0 Then With dt .Columns(0).ColumnName = "テーブルID" .Columns.Add("DUMMY", GetType(Boolean)) .Columns.Add("DUMMY1", GetType(Integer)) .Columns.Add("DUMMY2", GetType(String)) .Columns.Add("DUMMY3", GetType(Integer)) .Columns.Add("DUMMY4", GetType(String)) .Columns.Add("DUMMY5", GetType(Integer)) .Columns.Add("DUMMY6", GetType(String)) End With For Each wk As DataRow In dt.Rows wk("DUMMY") = False Next For Each wk As DataRow In dt.Rows wk("DUMMY1") = 0 Next For Each wk As DataRow In dt.Rows wk("DUMMY2") = "" Next For Each wk As DataRow In dt.Rows wk("DUMMY3") = 1000 Next For Each wk As DataRow In dt.Rows wk("DUMMY4") = "" Next For Each wk As DataRow In dt.Rows wk("DUMMY5") = 1000 Next For Each wk As DataRow In dt.Rows wk("DUMMY6") = "" Next End If Init = True If _errmsg.Length > 0 Then Makelog() End If Catch ex As Exception End Try End Function Private Sub Makelog() My.Computer.FileSystem.WriteAllText("errlog.txt", _errmsg, False) MsgBox("エラーがあります。エラーファイルを確認ください。") End Sub Private Function Readパラメータ(ByRef dt As DataTable, ByVal tableId As String) As Boolean Readパラメータ = False Try Dim reader As SqlDataReader Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.Connection = _conn If tableId = "" Then '全件取得 cmd.CommandText = "省略" Else '検索結果のみ取得 cmd.CommandText = "省略" End If Try reader = cmd.ExecuteReader() Dim datatable As New DataTable Using reader If reader.HasRows Then datatable.Load(reader) dt = datatable.Copy reader.Close() End If End Using datatable.Dispose() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) Exit Function Finally End Try Return True Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Function

試したこと

gridview.sort()は第二キーの設定の仕方がわからず、調べていたらdataview.sort()でできそうだと思い実装してみました。

補足情報(FW/ツールのバージョンなど)

Windows10、VisualStudio2017、.NET Framework 4.6.1

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

SurferOnWww

2022/09/07 04:49 編集

何を作っているのかぐらいは書きましょうよ。ASP.NET Web Forms? WPF? その他?  ASP.NET の話なら ASP.NET のタグをつけてください。 開発環境を書きましょう。OS, .NET Framework なのか .NET Core/.NET のどっちなのかとそのバージョンなど。
YAmaGNZ

2022/09/07 04:45

「出力対象チェックがON」とのことですが、提示されているソースが「DUMMY」等となっているので何のことか不明です。 またONと仰っているのでBooleanの値かと思いましたが、ソートはIntegerの値に対して行っているようです。 実際にどの項目に対してソートをかけているのでしょうか?
iwaka

2022/09/07 04:55

YAmaGNZさん DUMMY列(出力対象チェック列)が「TRUE」の場合DUMMY1列に「1」を入れて、DUMMY1列に対してソートをかけています。
SurferOnWww

2022/09/07 04:59

> WindowsFormアプリケーションを作っています。データベースからテーブルIDを取得してgridviewに表示させます。 Windows Forms アプリというのは間違いないですか? 間違いないとすると GridView ではなくてDataGridView の間違いではないですか? GridView というのは自分が知る限り System.Windows.Controls 名前空間 (WPF) のものと System.Web.UI.WebControls 名前空間 (ASP.NET) のもの以外には見当たりませんでしたけど。サードパーティ製の何か?
iwaka

2022/09/07 05:02 編集

SurferOnWwwさん すみません、DataGridViewです。ソースの中でgridviewを使っていたのでそのまま記載してしまいました。修正します。
SurferOnWww

2022/09/07 05:07

タイトルも DataGridView に書き直してください。
SurferOnWww

2022/09/07 05:49 編集

以下の記事のようにデータソース構成ウィザードを使って型付 DataSet/DataTable + TableAdapter を作ってから、その記事の Data Sources window のセクションにあるようにドラッグ&ドロップして DataGridView を自動生成させれば、ソート機能も実装されていて、アプリを実行してヘッダをクリックすればソートするのですが、それでは機能が不足なのですか? Add new data sources https://docs.microsoft.com/en-us/visualstudio/data-tools/add-new-data-sources?view=vs-2022
YAmaGNZ

2022/09/07 06:48

DataTableをDataSourceに設定した後DataGridViewの値を変更するのではなく DataTableの値を変更してからDataGridViewのDataSourceに設定しましょう。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

.NET Framework

.NET Framework は、Microsoft Windowsのオペレーティングシステムのために開発されたソフトウェア開発環境/実行環境です。多くのプログラミング言語をサポートしています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。