DB接続しない前提です。
データセットを用いてグリッドビュー内で重複チェックをしたいです。
リストボックス内にファイル毎にテキストを取り込み、任意の日付を抽出しテーブルに登録。
テーブルに重複あるか確認してboolenで判定したいのですが、構文がエラーになります。
For i = 0 To ListBox1.Items.Count - 1
ST = ListBox1.Items.Item(i)
GT = GetText(ST)
Dim strSearchChardate As String = "Date "
Dim datetxt As String = GT.Substring(lngPointdate + 5, 10)
Dim dsdt = DataSet1.DataTable1
Dim checktxt As DateTime = DateTime.Parse(datetxt)
Dim check As Boolean = dsdt.Contains(datetxt) ←ここのdatetxtエラー
’グリッドビューに重複なければ書き込み
dsdt.AddDataTable1Row(datetxt, code)
という風に進めたいのですが、修正を含め違うやり方等ありましたら教えていただきたいです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
余りにも詳しくない者ですが。
>dsdt.Contains(datetxt)
とはデータテーブルの『どこ』を探しているのでしょうね?
エラーの内容がわかりませんから(記載されても不勉強で『ポワ~ン?』ですが)、探し方としての手段の参考になるかもってリンクを貼ります。
VB.NET DataTableをSelect検索をして絞り込みや存在チェックを行う
https://zukucode.com/2017/10/vbnet-datatable-sel …
でもこれって実際弄っている人にはこの範囲でわかるのでしょうけど、私が無知なのか何が何を表しているのかトンと不明瞭な気がします。
ちなみにリンク先をどう組み込むかについての返信には多分『答えられない』と自信はあります!!!
教えていただいた存在チェックでできました。
'ラムダ式(無名関数)存在チェック
If dsdt.Rows.Cast(Of DataRow).Any(Function(row) row("日付") = datetxt) Then
MsgBox("日付の重複あり")
Else
dsdt.AddDataTable1Row(datetxt, code)
End If
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAで時間(00:00形式)を積算(足し算)したい 1 2022/11/15 17:04
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
DataGridViewの特定列に入力されている重複チェックをしたい
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
-
4
小数点を含む数値かどうか判断の判断方法
Visual Basic(VBA)
-
5
データグリッドビューの一番最初の行に列を追加したい
Visual Basic(VBA)
-
6
VB.netの重複データ数カウントについて
Visual Basic(VBA)
-
7
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
8
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
9
CloseとDisposeの違い
Visual Basic(VBA)
-
10
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
11
VB.NET2005 TextBox 高さ(Height) 変更
Visual Basic(VBA)
-
12
DataGridViewに空白がある場合はエラーにしたい
Visual Basic(VBA)
-
13
VB.NET DataGridView 縦スクロールバーを常に表示
Visual Basic(VBA)
-
14
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
15
DataGridViewの内容をDBに反映する時
Visual Basic(VBA)
-
16
DataTableに特定のフィールドが存在するかどうか調べるには?
Visual Basic(VBA)
-
17
配列の中に重複文字列があるか否かをチェックしたいのですが、アルゴリズムを教えてください。
その他(プログラミング・Web制作)
-
18
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
19
VB.net
Visual Basic(VBA)
-
20
VB.NETでのイベントの途中終了
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【VBA】ワークブックを開く時に...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
マクロで"#N/A"のエラー行を削...
-
実行時エラー'-2147467259(8000...
-
mailstorehomeのエクスポートで...
-
ActiveCell.FormulaR1C1の変数
-
SQLでエラーです。
-
インポート時のエラー「データ...
-
IISの仮想ディレクトリ作成がわ...
-
【VBAエラー】Nextに対するFor...
-
pythonのopenpyxlについて
-
マクロの「SaveAs」でエラーが...
-
HTMLソースが表示のページのも...
-
ASP.NETのサーバー移行に伴うエ...
-
ApplicationとWorksheetFunctio...
-
フランスの生年月日(jj/mm/aaaa)
-
実行時エラー´5854´ 文字列型パ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報
現在はエラー処理でしておりますがこれをやめたいです。
'日付の重複処理
Try
dsdt.AddDataTable1Row(datetxt, code)
'日付をユニークキーにしているため
Catch ex As System.Data.ConstraintException
MsgBox("同一日付があります")
End Try