Q&A
.NETで在庫管理システムを作成しています。データベースはAccessを使用しています。在庫一覧画面にて在庫されている商品の情報を、「商品テーブル」という名前のテーブルからSelectで検索して、DataGridViewで一覧表示する部分を現在実装しています。表示項目の名称とデータベースでのデータ型については以下の通りとなります。
|項目名|品番|入荷日|ロットNo|最終出荷日|残箱数|
|:--|:--:|--:|
|データ型|テキスト|日付/時刻|テキスト|日付/時刻|数値|
上の表のうち、入荷日と最終出荷日については、DataGridViewで表示する際に、各マスをカレンダー表示になるようにしたいです。
現在のソースは以下の通りとなります。
Form2.vb
''' <summary> ''' 在庫一覧画面 ''' </summary> Public Class Form2 Public searchFlg As Integer = 0 'ホストネーム Public HostName As String = System.Net.Dns.GetHostName 'プロジェクトネーム Public projectName As String = "在庫管理システム" Public productTable As String = "商品テーブル" 'データグリッドビュー Public dgv As DataGridView Private dbCon As Class1 'クエリー Private query As String 'テーブルデータ Private tableData As DataTable 'チェックボックス Private column As New DataGridViewCheckBoxColumn Private form3 As New Form3 'ターゲットリスト Private list As TargetList 'チェックボックスの行番号 Private columnIndex As Integer = 5 ''' <summary> ''' 一覧画面読み込み時の操作 ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'DataGridViewにセットするテーブル内容を取得する dbCon = New Class1(HostName, projectName, productTable) list = New TargetList 'TargetListインスタンス生成 dgv = DataGridView1 If searchFlg <> 1 Then '列が自動的に作成されないようにする dgv.AutoGenerateColumns = False tableData = dbCon.setDataSource() 'DataGridViewに先頭行に値をセットする ColumnSet(dgv, tableData) ''コネクションを切断する dbCon.Dispose() Else searchFlg = 0 End If End Sub ''' <summary> ''' DataGridViewの先頭行に項目名をセットする ''' </summary> ''' <returns></returns> Public Function headTxtNameSet() As ArrayList 'ヘッダーテキストのArrayList Dim headTxtArrayList As New ArrayList() headTxtArrayList.Add("品番") headTxtArrayList.Add("入荷日") headTxtArrayList.Add("ロットNo") headTxtArrayList.Add("最終出荷日") headTxtArrayList.Add("残箱数") Return headTxtArrayList End Function ''' <summary> ''' DataGridViewに値と文字の配置をセットする ''' </summary> ''' <param name="dgv"></param> Public Sub ColumnSet(dgv As DataGridView, tableData As DataTable) Dim headArrayList As New ArrayList() headArrayList = headTxtNameSet() Dim headerTxt As String = "" Dim tableRow As DataRow 'DataGridViewの列数を取得する Dim cellCount As Integer = headArrayList.Count '列のインデックス Dim cellIndex As Integer = 0 'DataTableの行数を取得する Dim rowCount As Integer = tableData.Rows.Count For i = 0 To cellCount - 1 Dim col As Object If i = 1 Or i = 3 Then '入荷日、出荷日の場合 'CalendarColumn列を作成する col = New CalendarColumn() '日付は右側表示にする Else '品番、ロットNo、残箱数のの場合 'DataGridViewTextBoxColumn列を作成する col = New DataGridViewTextBoxColumn End If '囲み文字を取得する headerTxt = headArrayList(i) '列を追加 dgv.Columns().Add(col) '行のコレクションを取得 tableRow = tableData.Rows(0) 'DataGridViewに値を格納する dgv.Rows(0).Cells(i).Value = tableRow(headerTxt) 'インデックスを初期化 cellIndex = 0 'ヘッダーを設定する dgv.Columns(i).HeaderText = headerTxt 'ヘッダーは中央表示 dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter If i = 4 Then '残箱数は右側表示 dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight End If Next ''CheckBox列を追加する dgv.Columns.Add(column) 'チェックボックスのヘッダー文字位置と名前を設定 dgv.Columns(cellCount).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter dgv.Columns(cellCount).HeaderText = "データ削除" End Sub End Class
Class1.vb
Imports System.Data.OleDb ''' <summary> ''' データベース接続クラス ''' </summary> Public Class Class1 Private connectionString As String 'フィールド Private tableName As String Private errortable As String Private fileName As String = "在庫管理システム.mdb" Private dgv As DataGridView = Form2.DataGridView1 'チェックボックス Private column As New DataGridViewCheckBoxColumn '行番号 Private columnIndex As Integer = 4 '''' <summary> '''' コンストラクタ '''' </summary> Public Sub New(ByVal HostName As String, ByVal projectName As String, ByVal tableName_ As String) tableName = tableName_ If HostName = "Kentaro-PC" Then connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Kentaro\Documents\Visual Studio 2015\Projects\" & projectName & "\DB\" & fileName Else End If End Sub '---------------------------------------------------- ' テーブルに関すること '---------------------------------------------------- Private dbCnc As OleDbConnection = New OleDbConnection Private dbAdp As OleDbDataAdapter Private cmd As System.Data.OleDb.OleDbCommand Private primaryKeyArray() As DataColumn Private tableData As New DataTable ''' <summary> ''' テーブルレコードを一覧で抽出する ''' </summary> ''' <returns></returns> Public Function setDataSource() Dim selectSql As String selectSql = "SELECT * FROM " & tableName If tableName.Equals("商品テーブル") Then selectSql &= " Where 残箱数 > 0 ORDER BY 入荷日,品番" ElseIf tableName.Equals("出荷履歴テーブル") Then selectSql &= " ORDER BY 出荷日" ElseIf tableName.Equals("エラーテーブル") selectSql &= " ORDER BY 発生日時" End If tableData = getTableData(selectSql) 'フィールド情報 primaryKeyArray = tableData.PrimaryKey '主キー情報を取得 Return tableData End Function ''' <summary> ''' テーブルデータを取得する ''' </summary> ''' <param name="query">SELECT文</param> ''' <returns>tableData</returns> Public Function DBconnect(ByVal query As String) tableData = New DataTable() dbAdp = New OleDbDataAdapter(query, connectionString) dbAdp.Fill(tableData) Return tableData End Function ''' <summary> ''' ''' </summary> ''' <param name="sqlList"></param> ''' <returns></returns> Public Function runSQL(sqlList As List(Of String)) As Boolean 'テーブル情報の変更 Dim checkFlg As Boolean If dbCnc.ConnectionString Is Nothing Or dbCnc.ConnectionString.Length = 0 Then '接続文字列の設定 dbCnc.ConnectionString = connectionString End If dbCnc.Open() 'コネクションオープン Dim dbCmd As OleDbCommand = dbCnc.CreateCommand Dim dbTrz As OleDbTransaction = dbCnc.BeginTransaction dbCmd.Connection = dbCnc 'コマンド接続 dbCmd.Transaction = dbTrz 'トランザクション開始 Try For Each strSQL As String In sqlList dbCmd.CommandText = strSQL 'リスト内のSQL文をセット dbCmd.ExecuteNonQuery() '実行 Next dbTrz.Commit() 'コミット（確定） checkFlg = True Catch ex As Exception MessageBox.Show(dbCmd.CommandText & vbCrLf & vbCrLf & ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) 'エラー内容表示 'エラーが発生した日付時刻を取得 Dim dtNow As DateTime = DateTime.Now dbTrz.Rollback() 'ロールバック Finally dbCmd.Dispose() 'コマンドを破棄 dbCnc.Close() 'コネクションを閉じる End Try Return checkFlg End Function ''' <summary> ''' 主キー情報を取得する ''' </summary> ''' <param name="targetColumn"></param> ''' <returns></returns> Public Function isPrimaryKey(ByVal targetColumn As Integer) As Boolean '主キー列か判定 Dim checkFlg As Boolean For i As Integer = 0 To primaryKeyArray.Length - 1 If primaryKeyArray(i).Ordinal = targetColumn Then checkFlg = True Next Return checkFlg End Function Public Function isAutoIncrement(ByVal targetColumn As Integer) As Boolean 'オートインクリメント列か判定 Dim checkFlg As Boolean If tableData.Columns(targetColumn).AutoIncrement = True Then checkFlg = True End If Return checkFlg End Function End Class
DBのサンプルデータは写真の通りです。
現在の表示結果は以下の写真の通りです。
どうすれば残箱数０より多いレコードを全件一覧表示できるでしょうか？分かる方よろしくお願いします。
回答1件
0
dgv.Rows(0).Cells(i).Value = tableRow(headerTxt)
これが原因でしょう。
Rows(0) は一行目を表しますので、検索されたデータが全て一行目を上書きしていることになります。
投稿2018/02/15 15:12
総合スコア28660
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/02/16 06:51
2018/02/16 07:16