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

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

ただいまの
回答率

89.99%

ASP.NET VB.NET 重複チェックの効率のいいロジックについて 

受付中

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 7,499

DgRp_08

score 52

申し訳ありません。
二重投稿になりましたもう一つの同タイトル質問はスルーして下さい。

GridViewを使用しているデータで重複禁止の項目があります。しかし、主キー項目ではありません。
Eval を使用して表示しているデータですが、そもそも重複入力禁止にできたら重複チェックも必要ありませんが可能でしょうか?
処理として、入力されたデータをDB更新したいのですが重複禁止の項目の重複データをチェックし、且つ何行目と何行目が重複しているのか行数を示さなければなりません。
重複入力禁止が可能でない場合、読み取る過程でチェックしなければなりませんが、効率のいいロジックを組めません。。。
Excelデータとかでなら一旦昇順にして……など考えてできたのですが。

項目は A B C とし、重複禁止項目はBです。
エラーになる仕様は以下の通り。

  • 全て空白の行は無視するが、それ以外で一つでも空白があればエラー
  • Bのデータが他の行と重複していたらエラー
    エラーを見つけた段階でエラー終了ではなく、全行チェックしてエラー箇所を全行ピックアップしなければなりません。

現在出来ているおおまかな処理の流れ的には以下の様な感じです。
実際のコードをコピペしているわけじゃないのでスペルミス等はスルーして下さい。

For li = 0 to レコード数
  '全項目空白の行は無視
  If A="" AND B="" AND C="" Then
    Continue For
  End if

  'どれか一つでも空白だったらエラー
  If A="" then
    blnErrFlg = true
  End if
 If B="" then
    blnErrFlg = true
  End if
 If C="" then
    blnErrFlg = true
  End if

 if blnErrFlg then
  'エラー行取得
   strErrRow = strErrRow & "," & i & "行目"
End if


Next

if blnErrFlg then
  '例外スローで Mid(strErrRow,2)を表示させる。(X行目,X行目,X行目)
End if

'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
' ここに項目Bの重複チェック処理を組みたい
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

For li = 0 to レコード数
 'A,B,Cの項目のデータを取得
 'Update処理
Next

アドバイス等宜しくお願い致します。

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

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

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

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

0

以下のサンプル内容でいかがでしょうか。

'◆項目Bの重複チェック処理サンプル
'B列重複情報抽出(gv=GridViewコントロール, B列位置=1(2列目)
Dim dupeGroups = gv.Rows.OfType(Of GridViewRow).GroupBy(Function(row) row.Cells(1).Text) _
                 .Where(Function(g) g.Count() > 1).ToArray()

If dupeGroups.Count() > 0 Then
    '重複あり
    For Each dupeGroup In dupeGroups
        '※重複情報はお好きに処理してください。以下はサンプルとして出力ウィンドウに表示しています。
        Debug.WriteLine("重複B列値:{0}, 重複行位置:{1}" _
                        , dupeGroup.Key _
                        , String.Join(",", dupeGroup.Select(Function(r) r.RowIndex).ToArray()))
    Next
    '※上記ループでメッセージを作成してここで例外スロー?
End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/02/29 23:14

    本日、勤務先にてサンプルを試させていただきましたが、私のやりかたがまずかったのかまだよく解ってませんが、全行の行番号を取得するだけで、上手く実現できませんでした。
    For文をネストして全行を調べることにしました。
    回答有り難うございました。

    キャンセル

  • 2016/03/01 00:02 編集

    あらら……おそらくB列が単純な「BoundField」ではなく「TemplateField」などのため、「row.Cells(1).Text」(※単純なTextプロパティ値)では有効な値が取得できず全件重複扱いになってしまったのでしょう。
    グループ化したい値に置き換えると動作するはずです。
    例えばItemTemplateでLabelの値でグループ化するのであれば「row.Cells(1).Text」の代わりに「CType(row.Cells(1).FindControl("Label1"), Label).Text」とする等。
    ※ラベル名は適当です。

    キャンセル

0

For文ですべての行を調べることにしました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

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

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

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

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

  • ただいまの回答率 89.99%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる