テーブルの中身が０だとエラーが発生してしまいます。

NULLの場合だと次のページ遷移が行われないのですが・・・

visualbasic
1
2Imports System.Data
3
4Partial Class MasterPage
5    Inherits System.Web.UI.MasterPage
6
7    '商品点数と合計金額の表示
8    Public Sub Get_Summary(ByVal order_no As Integer)
9        'SELECTクエリのパラメータ設定
10        Dim args As DataSourceSelectArguments = New DataSourceSelectArguments()
11        '注文テーブルから数量合計と合計金額を取得する
12        Dim dataview As DataView = CType(SqlDataSource_order_summary.Select(args), DataView)
13        If dataview.Table.Rows(0).ItemArray.GetValue(0) Is DBNull.Value Then←ここでエラーが発生します。
14エラー文型 'System.IndexOutOfRangeException' の例外が System.Data.dll で発生しましたが、ユーザー コード内ではハンドルされませんでした
15
16追加情報:位置 0 に行がありません。
17            'ＮＵＬＬの場合(レコードが存在しない)
18            Label_suyou.Text = 0
19            Label_gokei.Text = 0
20        Else
21            'ＮＵＬＬではない場合(レコードが存在する)
22            '伝票番号の最大値(+1)
23            Label_suyou.Text = dataview.Table.Rows(0).ItemArray.GetValue(1)
24            Label_gokei.Text = String.Format("{0:c}", dataview.Table.Rows(0).ItemArray.GetValue(2))
25        End If
26
27    End Sub
28
29    Protected Sub Page_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
30        'セッションオブジェクトの削除
31        Session.RemoveAll()
32    End Sub
33
34
35    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
36
37        If Session("order_no") Then
38            Get_Summary(0)
39        End If
40
41    End Sub
42End Class

hsk

2016/02/03 00:44

```visualbasic の前のスペースを取って（行頭から```visualbasic）おわりの```も行頭に書いて、コードを整形していただけますか？

sho_cs

2016/02/03 00:46

こちらの質問が他のユーザから「やってほしいことだけを記載した丸投げの質問」という指摘を受けました「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。

sk_3122

2016/02/03 02:19

他の方からも指摘がありますが、コードの整形をお願いします。おそらく ```visualbasic の前に 2 つほど半角スペースが入っている為、整形がうまくいっていないのではないかと思います。質問のタイトルの横に、編集履歴のリンクがあります。そこをクリックするとソースが表示されるので、コピーして、 ``` の前のスペースを覗いて編集し直してください。

JAVA

2016/02/03 02:30

お二方ご指摘ありがとうございました。スペースが入ってしまいソースコード整形が出来かったそうです。

行動規範の内容に同意します

回答1件

IndexOutOfRangeException というのは、「配列やリストの最大添字より大きい添字」を指定した時に出るエラーです。
dataview.Table.Rows が 1 行もないのに dataview.Table.Rows(0) を参照しようとしているので、このエラーが出ているのだと思います。

なので、Rows(0) を参照する前に、まず Rows の件数をチェックします。
あと ItemArray も添字で参照しようとしてますね。これは 0 件のケースはあり得るでしょうか。
もしあるなら、そちらもチェックが必要ですかね。

vb
1If dataview.Table.Rows.Count <= 0 OrElse
2   dataview.Table.Rows(0).ItemArray.Length <= 0 OrElse
3   dataview.Table.Rows(0).ItemArray.GetValue(0) Is DBNull.Value Then
4
5    ' レコードが存在しない場合
6    ...