変数'ST'は、値が割り当てられる前に使用されています。Null参照の例外が実行時に発生する可能性があります。

Question

前提・実現したいこと

VB.NETでSQLから取得したテーブルのデータを関数に挿入し、既存の関数の数値から減算処理をしようとしたところ、関数の部分に下記のようなエラーが発生してしまいました。

ご教授の方よろしくお願いいたします。

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

変数'ST'は、値が割り当てられる前に使用されています。Null参照の例外が実行時に発生する可能性があります。

該当のソースコード

        Public Function GetGMOCardEntryTranData(ByVal context As WebActionContext) As ComponentResult

            Dim estimateData As DataObject = context.Value.ToDataObject("EstimateOrderDic")
            Dim entryTranData As New DataObject

            entryTranData("OrderId") = context.Value("OrderId")

            Dim Total As String = CStr(estimateData("total"))

            Dim dao As New SalesDao
            Dim ST As String
            Dim gmotable As DataTable = dao.SelectOrderGMOInfo(context.Input.ToString("estimate"))

            For Each row As DataRow In gmotable.Rows
                ST = row.ToString("ST")
            Next

            entryTranData("Amount") = CDbl(Total) - CDbl(ST)

            Return ComponentResult.Continue

        End Function

試したこと

SQLにNULLだったとき、0を挿入というコードの追加。
Strで出力していたのをいくつかの型に変更。

Answer 1

エラーメッセージの通り、STが値がセットされる前に使用される可能性があります。
具体的にはFor Each内でSTをセットしていますが、gmotable.Rowsが0行の場合にセットされません。
この時の対応をしてください。

Comments

[mc-takuho]

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

`Dim ST As String`
上記の処理を
`Dim ST As String = ""`
下記のように変更したところ、処理を正常に動作させることが出来ました。
ご回答のほど本当にありがとうございました。

[YAmaGNZ]

今回のエラーはあくまで「警告」です。例外が発生する場合がありますが大丈夫ですか？と言ってくれているわけです。

Cdbl("")の場合、例外が発生します。
この為、修正し警告が出ていない状態ですが、gmotable.Rowsが0行の場合に例外が発生することになります。
ですので、この場合の「対応」とは例外が発生しないようにすることです。
どういう場合でもgmotable に必ず1行以上のデータが帰ってくる保障があるのであれば今回の修正で問題ないとは思いますが、0行のDataTableを返してくる時が考えられる、そもそもDataTableがNothingで返ってくるなどあるのであれば、対応が必要です。

[mc-takuho]

なるほど。

先ほど設計の方で確認してみたところ、０行目で帰ってくることは無いとのことなので
今回の件では大丈夫そうです。

「Nothing」などが発生する場合、そのようなエラーが発生するということを念頭においてコードの方を書きたいと思います。教えてください、本当にありがとうございます。

Answer 2

        Public Function GetGMOCardEntryTranData(ByVal context As WebActionContext) As ComponentResult

            Dim estimateData As DataObject = context.Value.ToDataObject("EstimateOrderDic")
            Dim entryTranData As New DataObject

            entryTranData("OrderId") = context.Value("OrderId")

            Dim Total As String = CStr(estimateData("total"))

            Dim dao As New SalesDao
            Dim ST As String = ""
            Dim gmotable As DataTable = dao.SelectOrderGMOInfo(context.Input.ToString("estimate"))

            For Each row As DataRow In gmotable.Rows
                ST = row.ToString("ST")
            Next

            entryTranData("Amount") = CDbl(Total) - CDbl(ST)

            Return ComponentResult.Continue

        End Function

上記のように変更したところ、動作させることが出来ました。