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

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

新規登録して質問してみよう
ただいま回答率
85.48%
バリデーション

Validationとは特定の入力データが、求められた条件に当てまっているかをチェックするために使われます。

VB.NET

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

Q&A

解決済

1回答

3526閲覧

[VB.NET]DataGridViewで行ごとにバリデーションチェックを行いたい。

退会済みユーザー

退会済みユーザー

総合スコア0

バリデーション

Validationとは特定の入力データが、求められた条件に当てまっているかをチェックするために使われます。

VB.NET

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

0グッド

0クリップ

投稿2020/07/12 11:09

編集2020/07/12 21:22

前提・実現したいこと

VisualBasicのDataGridViewの入力値をDBに登録するようにしているのですが、1行ずつ未入力がないかのチェックを行い、未入力があればMessageBoxを出したいです。

現在、セル単位でのチェックは出来ており、セルが未入力ならエラーテキストを出すようにしております。

発生している問題・エラーメッセージ

行単位でのチェック方法がわからないです。

該当のソースコード

VB

1セルごとのチェックは以下のようにしております。 2Dim dgv As DataGridView = DirectCast(sender, DataGridView) 3 4 If dgv.Columns(e.ColumnIndex).Name = "ODNO" And 5 e.FormattedValue.ToString() = "" Then 6 For Each c As DataGridViewCell In DataGridView1.SelectedCells 7 DataGridView1(0, c.RowIndex).ErrorText = "必須入力項目" 8 DataGridView1(0, c.RowIndex).Style.BackColor = Color.Orange 9 Next 10 End If

試したこと

セル単位ではチェックは出来ています。

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

Visual Studio2017,SQL Server

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

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

tosi

2020/07/12 23:46 編集

DataGridView1_RowValidatingイベントで DataGridView1.DGVList.Rows(RowXX).Cells(ColumeXX)で各セル値確認 エラーならDataGridView1.CancelEdit()で戻しでは駄目なんですよね。
退会済みユーザー

退会済みユーザー

2020/07/13 01:24

回答ありがとうございます。 上記のやり方を詳しく聞きたいのですが、よろしいでしょうか?
tosi

2020/07/13 02:01

サンプル出しますので少々お待ち下さい。
guest

回答1

0

ベストアンサー

未入力セルのチェック処理となります。

VB.NET

1Private Sub DataGridView1_RowValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) _ 2Handles DataGridView1.RowValidating 3 Try 4 '(セル値の確認) 5 Dim iCol = DataGridView1.ColumnCount - 1 6 Dim iRow = DataGridView1.CurrentCellAddress.Y 7 Dim CellVal As DataGridViewCell = Nothing 8 For iX As Integer = 0 To iCol 9 CellVal = DataGridView1.Rows(iRow).Cells(iX) 10 If IsDBNull(CellVal.Value) = True Then 11 e.Cancel = True 12 Messagebox.Show("値なし " & iRow & ":" & iX) 13 Exit Sub 14 End If 15 Next 16 ' 17 Catch ex As Exception 18 Messagebox.Show("Error") 19 Exit Sub 20 End Try 21  '(セル編集操作コミット) 22 DataGridView1.EndEdit() 23 Dim cm As CurrencyManager = CType(Me.BindingContext(DataGridView1.DataSource, DataGridView1.DataMember), CurrencyManager) 24 cm.EndCurrentEdit() 2526 '(処理色々) 2728 '(処理がエラー時更新をCancel) 29 DataGridView1.CancelEdit() 30End Sub

他に
DataGridView1_RowLeave 'RowValidating前発生
DataGridView1_UserAddedRow  '追加時
DataGridView1_UserDeletingRow '削除時
等のイベントが行操作では発生します。
CurrencyManager必要ないかも知れませんが慣例で入れています。

投稿2020/07/13 02:49

tosi

総合スコア553

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2020/07/13 03:07

ありがとうございます! こちらのソースで任意のセルのみチェックを行うことは可能でしょうか? 例えば、各行の1列目のみをチェックしたいなどです。
tosi

2020/07/13 03:29

For繰り返しを無くしてCellVal = DataGridView1.Rows(iRow).Cells(iX)の iXを0(又は1)固定にすれば良いと思います。
退会済みユーザー

退会済みユーザー

2020/07/13 04:09

ありがとうございます! 思うようにメッセージを出すことが出来ました! 本当にありがとうございます!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.48%

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

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

質問する

関連した質問