データを判別してのテーブル処理

質問

データの内容を比較して、すでにあるデータ（キーで判別）は書き換え、ない場合はレコードの追加処理をしたいと思います。

Me.PASSTableAdapter.Fill(Me.YOSAN_SYSDataSet.PASS)
Dim UserData As YOSAN_SYSDataSet.PASSRow
Dim newRow As DataRow = YOSAN_SYSDataSet.PASS.NewRow

Do
UserData = Me.YOSAN_SYSDataSet.PASS.FindByID(LogonUser(0, LogCount).Text)

If UserData.Table.Rows.Count <> 0 Then <==ココで落ちる
　　UserData.PASS = LogonUser(1, LogCount).Text
　　UserData.NAME = LogonUser(2, LogCount).Text

Else

newRow(0) = LogonUser(0, LogCount).Text
newRow(1) = LogonUser(1, LogCount).Text
newRow(2) = LogonUser(2, LogCount).Text

YOSAN_SYSDataSet.PASS.Rows.Add(newRow)

End If

Me.PASSTableAdapter.Update(Me.YOSAN_SYSDataSet.PASS)
LogCount += 1
Loop While LogonUser(0, LogCount).Text <> ""

　上記の命令ですと、すでにあるデータ（更新）処理はうまくいくのですが、新規データの場合矢印の場所で「オブジェクト参照がオブジェクトインスタンスに設定されておりません」とエラーになってしまいます。
　どうしたらよろしいでしょうか？

回答No.1

kero_mio · ベストアンサー

VB.NET のバージョンがわからないので、回答が二分しますが、
UserData.Tableが、Nothingだから、落ちているのでは？

■VS.NET2005を使っている場合
If UserData.Table IsNot Nothing AndAlso _
　　UserData.Table.Rows.Count <> 0 Then

　編集処理

End If

■VS.NET2002, 2003を使っている場合
If Not UserData.Table Is Nothing Then
　　If UserData.Table.Rows.Count <> 0 Then
　　　編集処理
　　End If
End If

で、試してみてください。

お礼

If UserData.Table IsNot Nothing
ではなく
If UserData IsNot Nothing
だとうまくいきました。
ありがとうございます。

補足

回答ありがとうございます。

ＶＢは２００５を使っています(^^;

そこで、教えていただいた構文を入れてみましたが、結果は同じでした。
Tryで囲っているのですが、囲わない方がいいのかと考えております。