🚀 go-pugleaf

小川信一です。

単純に順番に値を設定するだけなら、以下でどうでしょうか。

/* Data コントロールをData1 とした場合*/
Dim i As Integer
/*最初のレコードにカレント設定*/
Data1.Recordset.MoveFirst
For i% = 0 To 63
     DBGrid1.Col = 0: DBGrid1.Text = "DATA0"
     DBGrid1.Col = 1: DBGrid1.Text = "DATA1"
     DBGrid1.Col = 2: DBGrid1.Text = "DATA2"
     DBGrid1.Col = 3: DBGrid1.Text = "DATA3"
    /*カレントを一件下にずらす*/
     Data1.Recordset.MoveNext
Next

椎名正昭 wrote in message <694dfg$cqb$1@fu.bekkoame.or.jp>...
>椎名と申します。
>
>現在、DataコントロールをDBGridコントロールのデータソースに指定し、
>アクセスで作ったデータベースからデータを表示するというようなプログラム
>を作っています。
>
>DBGridコントロールのRowプロパティとColプロパティに値を代入して
>Textプロパティに値を入れ、セルの内容を書き換えようと以下のような
>コードを書いたのですが、フォーム上に表示されていない行に
>カレントが移ろうとすると
>
>6148:不正な行数です。
>
>というエラーが出て止まってしまいます。
>（１４行目までしか見えていない時に、１５行目にカレントを移そうとするとエ
>ラー）
>
>注：開いているテーブルには４つの項目があり、すべて文字列型で以下のような
>　　イメージになっています。
>
>          A                  B                C                D
>0
>1
>.
>.
>63
>
>
>Dim i As Integer
>
>For i=0 to 63
>    DBGrid1.Row=i
>    DBGrid.Col=0
>    DBGrid.Text="DATA0"
>    DBGrid.Col=1
>    DBGrid.Text="DATA1"
>    DBGrid.Col=2
>    DBGrid.Text="DATA2"
>    DBGrid.Col=3
>    DBGrid.Text="DATA3"
>Next i
>
>CellTextメソッドを使えば値の取得はできるのですが、代入は出来ません。
>どなたか特定のセルへ直に値を書き込める方法をご存知無いでしょうか？
>おそらく、Rowプロパティに値を代入しながらやる事自体がまずいのだろう
>とは思いますが、自分には代替案が分かりません。
>出来れば簡単なサンプルコードを付けていただければ幸いです。
>よろしくお願いします。
>
>