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

> いつもお世話になっております Ｅｒｉｃａでございます。
> 
> ＭＳＦｌｅｘＧｒｉｄを使って データの書き込みを行なってます。
> Dim r as integer '行
> With MSFelxgrid1
>    .Rows=3
>    .Cols=15
>    .FIxedRows=2 '個定行2行にわたって 題名を表示してるため
>    .FixedCols=0
>       ・
>       ・
>       ・
>    .Additem a,b・・・・,r+2 '2行目からの書き込み +1だと個定行への書き込みなのでエラー
> End With
> と設定してます。
> 
> すると表示されるのは 個定行の下に空白の行、その下に データの行となってしまいます。
> どうしたら この空白行を消すことができるのでしょうか？
> よろしくお願いします。
> 

AddItem メソッドの書式が違います。ヘルプを見て修正して下さい。

flexはFixed以外の行列が必ず必要となるので、
まず、
Rows=2にする
その後にAddItemを実行し、
最後にFixedRows=2にする

rがいくつから始まっているのか分かりませんが
こんな感じかな
Dim r as integer '行
for r = 1 to 100
　　With MSFelxgrid1
　　   .Rows=r+1
　　   .Cols=15
　　   .Additem a,b・・・・,r+1
　　End With
next r

最後にFixed行列の処理を行う
With MSFelxgrid1
   .FIxedRows=2 '個定行2行にわたって 題名を表示してるため
   .FixedCols=0
      ・
      ・
      ・
End With

> flexはFixed以外の行列が必ず必要となるので、
> まず、
> Rows=2にする
> その後にAddItemを実行し、
> 最後にFixedRows=2にする
> 
> rがいくつから始まっているのか分かりませんが
> こんな感じかな
> Dim r as integer '行
> for r = 1 to 100
> 　　With MSFelxgrid1
> 　　   .Rows=r+1
> 　　   .Cols=15
> 　　   .Additem a,b・・・・,r+1
> 　　End With
> next r
> 
> 最後にFixed行列の処理を行う
> With MSFelxgrid1
>    .FIxedRows=2 '個定行2行にわたって 題名を表示してるため
>    .FixedCols=0
>       ・
>       ・
>       ・
> End With


AddItem の文法が間違えていますよ。

第一引数：追加数データ、複数列にわたる場合は vbTab で連結。
第二引数：追加する行。

はじめまして!Ｅｒｉｃａでございます。
filthさま、ぜんちゃん さま .ローサさま レスありがとおございます。
filthさま&ローザさまWrote：
>AddItem メソッドの書式が違います。
多分Ｅｒｉｃａがここへ書き込むときに 省略しすぎました。>Additemの構文
誤解を与えてしまってスンマセン！（ＴＴ）

ぜんちゃん さま Wrote:
> flexはFixed以外の行列が必ず必要となるので、
RowsとFiedRowsの数は一緒にならないってことですね。

> Rows=2にする
> その後にAddItemを実行し、
> 最後にFixedRows=2にする
すごいテクですね！！
できました！！ ありがとおございますぅ〜

> はじめまして!Ｅｒｉｃａでございます。
> filthさま、ぜんちゃん さま .ローサさま レスありがとおございます。
> filthさま&ローザさまWrote：
> >AddItem メソッドの書式が違います。
> 多分Ｅｒｉｃａがここへ書き込むときに 省略しすぎました。>Additemの構文
> 誤解を与えてしまってスンマセン！（ＴＴ）
> 
> ぜんちゃん さま Wrote:
> > flexはFixed以外の行列が必ず必要となるので、
> RowsとFiedRowsの数は一緒にならないってことですね。
> 
> > Rows=2にする
> > その後にAddItemを実行し、
> > 最後にFixedRows=2にする
> すごいテクですね！！
> できました！！ ありがとおございますぅ〜


そうだったんですかぁ。
わたしって、まだまだ読みが浅いなぁ。

とにかく、

     With MSFelxgrid1
        .Rows=3
        .Cols=15
        .FIxedRows=2 '個定行2行にわたって 題名を表示してるため
        .FixedCols=0
        .Rows=2      '空白行を削除する
           ・
           ・
           ・
        .Additem a,b・・・・,r+2 '2行目からの書き込み +1だと個定行への書き込みなのでエラー
     End With


ならば変更が少ないような、後のお祭ですねぇ。