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

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

ただいまの
回答率

87.61%

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 4,487

score 15

前提・実現したいこと

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で出力していたのをいくつかの型に変更。

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

回答 2

checkベストアンサー

+3

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

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2019/03/14 11:32

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

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

    キャンセル

  • 2019/03/14 11:50

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

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

    キャンセル

  • 2019/03/14 11:54

    なるほど。

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

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

    キャンセル

0

        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


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

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

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

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

関連した質問

同じタグがついた質問を見る

  • トップ
  • VB.NETに関する質問
  • 変数'ST'は、値が割り当てられる前に使用されています。Null参照の例外が実行時に発生する可能性があります。