DOBON.NETプログラミング掲示板過去ログ
配列でエラーになります
題名: 配列でエラーになります
著者: カッキー
日時: 2009/11/13 19:01:48
ID: 25802
この記事の返信元:
(なし)
この記事への返信:
[25803]
Re[1]: 配列でエラーになります
Hongliang
2009/11/13 19:28:03
[25804]
Re[1]: 配列でエラーになります
(報告)
2009/11/13 19:47:07
ツリーを表示
環境/言語:[vb2005,WindowsXP]
分類:[.NET]
データグリッドビユーで表示されている売上リストの中からチェックボックスが
onになっているところだけの伝票番号を配列で取得しようと思って下のコードを
書きました。
ところが「インスタンスが生成されない・・」という感じのエラーになります。
どうやら配列が問題らしいのですが、配列には「New」を使えないし困っています。
なんか、「配列」自体よく理解していない感じがします。
どこが悪いのでしょうか、どなたかご教示下さい。
お願いします。
Dim aryUriageNo() As Integer
Dim i As Integer
Dim j As Integer
aryUriageNo = Nothing
'■■■ここからが、DataGridViewを使った出力処理■■■
i = 0
j = 0
For i = 0 To Me.dataGridUriageMeisai.RowCount - 1 'すべての行を見る
If Me.dataGridUriageMeisai.Rows(i).Cells(10).Value = True Then 'チェックボックスが「true」なら ⇒配列の生成
aryUriageNo(j) = CInt(Me.dataGridUriageMeisai.Rows(i).Cells(1).Value) '伝票番号
j = j + 1
End If
Next
題名: Re[1]: 配列でエラーになります
著者: Hongliang
日時: 2009/11/13 19:28:03
ID: 25803
この記事の返信元:
[25802]
配列でエラーになります
カッキー
2009/11/13 19:01:48
この記事への返信:
(なし)
ツリーを表示
> どうやら配列が問題らしいのですが、配列には「New」を使えないし困っています。
使えますよ。
' Dim x As XXXX()
x = New XXXX(maxIndex) { }
という書き方になります。
ちなみに maxIndex なので、実際に確保される配列の要素数は maxIndex + 1 個になります。
他には ReDim ステートメントもあります。
題名: Re[1]: 配列でエラーになります
著者: (報告)
日時: 2009/11/13 19:47:07
ID: 25804
この記事の返信元:
[25802]
配列でエラーになります
カッキー
2009/11/13 19:01:48
この記事への返信:
(なし)
ツリーを表示
■No25802に返信(カッキーさんの記事)
マルチポスト
http://bbs.wankuma.com/index.cgi?mode=al2&namber=43626
DOBON.NET
|
プログラミング道
|
プログラミング掲示板
分類:[.NET]
データグリッドビユーで表示されている売上リストの中からチェックボックスが
onになっているところだけの伝票番号を配列で取得しようと思って下のコードを
書きました。
ところが「インスタンスが生成されない・・」という感じのエラーになります。
どうやら配列が問題らしいのですが、配列には「New」を使えないし困っています。
なんか、「配列」自体よく理解していない感じがします。
どこが悪いのでしょうか、どなたかご教示下さい。
お願いします。
Dim aryUriageNo() As Integer
Dim i As Integer
Dim j As Integer
aryUriageNo = Nothing
'■■■ここからが、DataGridViewを使った出力処理■■■
i = 0
j = 0
For i = 0 To Me.dataGridUriageMeisai.RowCount - 1 'すべての行を見る
If Me.dataGridUriageMeisai.Rows(i).Cells(10).Value = True Then 'チェックボックスが「true」なら ⇒配列の生成
aryUriageNo(j) = CInt(Me.dataGridUriageMeisai.Rows(i).Cells(1).Value) '伝票番号
j = j + 1
End If
Next