VB初心者友の会 - Q&A掲示板過去ログ

灰色狐さん、初めまして。しのび〜いと申します。

> グリッドの、例えば(0,0)に配列の(0,0)の内容を表示させるという処理をさせたいと
> 思っております。
> grdMain.Cell(0,0) = 配列名(0,0)という感じの指定の仕方を教えて頂ければ幸いです。

っとのことですが、これは、「グリッドの列と行が指し示す内容と二次元配列のNのM番目の
内容を同じ様に扱いたい」っと言うことでしょうか？

だとすれば、グリッドの最大行数と最大列数で二次元配列を定義し、定義された配列に列と
行が指し示す内容をセットすれば、『grdMain.Cell(0,0) = 配列名(0,0)』っというように
なると思います。

> 灰色狐さん、初めまして。しのび〜いと申します。

こちらこそ、初めまして。 
> > グリッドの、例えば(0,0)に配列の(0,0)の内容を表示させるという処理をさせたいと
> > 思っております。
> > grdMain.Cell(0,0) = 配列名(0,0)という感じの指定の仕方を教えて頂ければ幸いです。
> 
> っとのことですが、これは、「グリッドの列と行が指し示す内容と二次元配列のNのM番目の
> 内容を同じ様に扱いたい」っと言うことでしょうか？
> 
> だとすれば、グリッドの最大行数と最大列数で二次元配列を定義し、定義された配列に列と
> 行が指し示す内容をセットすれば、『grdMain.Cell(0,0) = 配列名(0,0)』っというように
> なると思います。

とりあえず、二次元配列のイメージそのままでグリッドに内容を表示させたいと思っております。
つまり二次元配列(0,0)の内容はグリッドの(0,0)に表示させるという感じであります。
教えていただいた方法でやったのですが、「メソッドまたはデータメンバが見つかりません」というエラー
が出てしまいました(汗)。
そのときの構文は以下の通りです。

grdMain.Cell(0, 0) = DataTable(1, 1)

この『Cell』の所をMatrixに変えましたらば、うまく行きました。
・・・が、配列の行列指定とグリッドの行列指定は異なるようですね・・・。
配列は(列、行)なのに対して、グリッドでは（行、列)となっているようです。この辺りが、ヘッポコな私
としては辛い所であります(汗)。

> grdMain.Cell(0, 0) = DataTable(1, 1)
> 
> この『Cell』の所をMatrixに変えましたらば、うまく行きました。
> ・・・が、配列の行列指定とグリッドの行列指定は異なるようですね・・・。
> 配列は(列、行)なのに対して、グリッドでは（行、列)となっているようです。
> この辺りが、ヘッポコな私としては辛い所であります(汗)。

私自信、グリッドは、使っていないので（Spread/OCXならよく使ってます）よく
解りませんが、配列の行列してとグリッドの行列指定が異なるのは、Redim、
もしくは、配列宣言時にインデックス番号がずれているからではありませんか？

例えば...

１０行５列のグリッドがあるとして、配列定義を以下のようにしてしまうと、
番号が一致しませんよね？

Dim DataTable(10, 5) As String
              ~~~~~~
　　　　　　　　│ └　これを列と考える
　　　　　　　　└　これを行と考える

この宣言では、０〜１０というよう行と０〜５と言う列になってしまいますよね？
本来であれば、１行目の１列目から５行目の１０列目を宣言して配列をグリッド
に見立てる必要があるはずです。であるならば...

Dim DataTable(1 To 10, 1 To 5) As String
              ~~~~~~~~~~~~~~~~

上記のような宣言方法であれば、１〜１０行と１〜５列の配列定義になるはずです。

また、考え方を変えると、何も二次元配列にこだわる必要がないと思います。
構造体を宣言し、その構造体を配列として考えると解りやすいかもしれませんよ。

Type User_Cols
    Col1    As Integer  '１列目
    Col2    As Integer  '２列目
    Col3    As Integer  '３列目
    Col4    As Integer  '４列目
    Col5    As Integer  '５列目
End Type

'１０行の構造体配列を宣言する
Dim DataTable(1 To 10)    As User_Cols

上記のように定義すれば、考え安くなると思います。

（例）１行目の１列目
      DataTable(1).Col1 '←これで１行目の１列目の値をゲットできます。


こんなところでしょうか？解答になっていなかったら、ごめんなさい。

> > grdMain.Cell(0, 0) = DataTable(1, 1)
> > 
> > この『Cell』の所をMatrixに変えましたらば、うまく行きました。
> > ・・・が、配列の行列指定とグリッドの行列指定は異なるようですね・・・。
> > 配列は(列、行)なのに対して、グリッドでは（行、列)となっているようです。
> > この辺りが、ヘッポコな私としては辛い所であります(汗)。
> 
> 私自信、グリッドは、使っていないので（Spread/OCXならよく使ってます）よく
> 解りませんが、配列の行列してとグリッドの行列指定が異なるのは、Redim、
> もしくは、配列宣言時にインデックス番号がずれているからではありませんか？
> 
> 例えば...
> 
> １０行５列のグリッドがあるとして、配列定義を以下のようにしてしまうと、
> 番号が一致しませんよね？
> 
> Dim DataTable(10, 5) As String
>               ~~~~~~
> 　　　　　　　　│ └　これを列と考える
> 　　　　　　　　└　これを行と考える
> 
> この宣言では、０〜１０というよう行と０〜５と言う列になってしまいますよね？
> 本来であれば、１行目の１列目から５行目の１０列目を宣言して配列をグリッド
> に見立てる必要があるはずです。であるならば...
> 
> Dim DataTable(1 To 10, 1 To 5) As String
>               ~~~~~~~~~~~~~~~~
> 
> 上記のような宣言方法であれば、１〜１０行と１〜５列の配列定義になるはずです。
> 
> また、考え方を変えると、何も二次元配列にこだわる必要がないと思います。
> 構造体を宣言し、その構造体を配列として考えると解りやすいかもしれませんよ。
> 
> Type User_Cols
>     Col1    As Integer  '１列目
>     Col2    As Integer  '２列目
>     Col3    As Integer  '３列目
>     Col4    As Integer  '４列目
>     Col5    As Integer  '５列目
> End Type
> 
> '１０行の構造体配列を宣言する
> Dim DataTable(1 To 10)    As User_Cols
> 
> 上記のように定義すれば、考え安くなると思います。
> 
> （例）１行目の１列目
>       DataTable(1).Col1 '←これで１行目の１列目の値をゲットできます。
> 
> 
> こんなところでしょうか？解答になっていなかったら、ごめんなさい。

あー、なるほど。何となく分かったような気が致します(笑)。
私の場合ヘッポコなので、処理のアルゴリズムがまったくといって良いほど分かっていないのであります。
ですから、今回のお話は非常に参考になりました。
今後とも、宜しくお願い致します(笑)。