初めて投稿させていただきます。よろしくお願いいたします。


下記使用環境にてプラグラムを作成中です。
　　VB5.0
　　SPREAD2.5J
　　DB：Oracle８　

　１）スプレッドを使用して、データベースからのデータ検索結果の
　　　明細行を表示します。
　　　　※表示させる列数は固定ですが、行数は検索結果により可変となります。
　　　明細行の１行選択することにより、選択された行のデータをハンドリング
　　　する手段について教えてください。

　２）１）同様スプレッドを使用して、データベースからのデータ検索結果の
　　　明細行を表示します。
　　　　※表示させる列数は固定ですが、行数は検索結果により可変となります。
　　　複数の明細行を選択可能とした場合、選択された行のデータをハンドリングする
　　　手段について教えてください。

上記２点について、現時点での画面構成上、スプレッドデザイナーで、
選択行の先頭列（最左端列）をチェックボックスで考えていて、選択行の
判断をしようと考えております。
もし、別の画面構成手段でも良い方法があれば教えてください。

全ての過去ログを見切れた訳でなく、また質問が漠然としているかもしれませんが、
ヒントとなるようなものでも構いませんので、ご教示いただけないでしょうか。
よろしくお願いいたします。

まるなげのような質問はどうでしょうか。
過去にも似たような質問はあるでしょうから、ググれば
なにがしかHitすると思いますが・・・
ただ、教えてくださいでは、どこから答えていいのやらって感じですし、
ここまでしてここがわからないだと答えやすいと思います。

返信ありがとうございました。
確かに質問の仕方がまずかったとは思います。
もう少し当掲示板にて調査して、具体的な内容に落とせるまで努力いたします。
参考までに”ググれば”とは？　何でしょうか？

> まるなげのような質問はどうでしょうか。
> 過去にも似たような質問はあるでしょうから、ググれば
> なにがしかHitすると思いますが・・・
> ただ、教えてくださいでは、どこから答えていいのやらって感じですし、
> ここまでしてここがわからないだと答えやすいと思います。

>参考までに”ググれば”とは？　何でしょうか？

検索サイト Google (hhttp://www.google.co.jp/)を使って調べてみることを言います。
ぐぐる という言葉の意味は
hhttp://www.amazon.co.jp/exec/obidos/ASIN/4839914923/249-6167542-2061115

というように本が出るほど一般化しているのでは無いかと思われます。

使われ方は、
「自助努力をせずに丸投げの質問をする通称(教えて君)と呼ぶ方に、
自分で調べろ！ネットでちょっと検索すれば出てくるだろ！という意味合いを込めて、」

「それぐらいググれ」というように使われます。

ご返信ありがとうございます。
あまりにも何も知らないことばかりで情けないです。
厳しいご指導ありがとうございました。

いえいえ、上記はホント、一般的な使われ方ですから・・・。

それよりも、別のレスに載せていた
ベンダーのHPのURLを見て進展はありましたか？

To:いなさん。
その後もフォローいただきありがとうございます。
教えていただいたURL（GrapeCity社）のよくある質問に、
複数行選択の事例がありました。
参考になると思われますので、一度確認してみたいと思います。
実地環境が特定のある場所しかなく、また時間も限られているので
次回の確認まで少々時間間があいてしまいます。
次回確認の際、つまずいたら今度こそは、もっと具体的な
相談をさせていただきたいと思います。

Tｏ：ぶぶさん
この返信にて恐縮ですが、あらためてフォローいただいたお礼を
させていただきます。ありがとうございました。
もっと苦労せねば、力つきませんね。

> To:いなさん。
> その後もフォローいただきありがとうございます。
> 教えていただいたURL（GrapeCity社）のよくある質問に、
> 複数行選択の事例がありました。
> 参考になると思われますので、一度確認してみたいと思います。
> 実地環境が特定のある場所しかなく、また時間も限られているので
> 次回の確認まで少々時間間があいてしまいます。

了解です。

> 次回確認の際、つまずいたら今度こそは、もっと具体的な
> 相談をさせていただきたいと思います。

こちらも了解です。
具体的な相談として
イベント名やプロパティ名、どんな操作を行った時
などを質問事項に含められると回答もつけやすいです。

先月、本掲示板に投稿させていただいたものです。
あれから少し時間が経ってしまいましたが、前回の課題について本日確認を実施してみました。
現状は、つめが甘く上手くいっていない状況です。
再度御質問させていただきたく下記に内容を記載いたします。
不手際があるようであれば、ご指摘いただければ幸いです。

【実施環境】
　VB5.0/SPREAD2.5J
【実現したい要件】
　上記サンプル画面でのスプレッドでの明細行をクリック（複数行選択可能）し、
　選択行における各列の値を取得したい。
【確認コード】
　下記３パターンで確認実施中。いずれもNGの結果です。

-----------------------------------------------------------
　（１）パターン１
　　Dim i_cnt As Integer
    Dim sel_cnt As Long
    Dim selwk As Long
    Dim Sel_Txt         As Boolean
    For i_cnt = 1 To fp.Spread1.MaxRows
        sel_cnt = fp.Spread1.GetMultiSelItem(selwk)
        Sel_Txt = fp.Spread1.GetText(1, sel_cnt, ax1)  '選択行のax1をGet
        Sel_Txt = fp.Spread1.GetText(2, sel_cnt, az5)  '選択行のaz5をGet
        　　'以下、必要列数分記述
    Next i_cnt

『確認実施手順』　
　　スプレッド明細行にて、２行目と４行目を選択し実行する。　
『結果』
　　sel_cnt に、２が返されるが、４は返されない。
　　選択行２行目の列（ax1）と、列（az5）の値は、正しく取得可能。
　　但し、４行目の値は、Get出来ず。
　　　⇒　For ループの中で、sel_cnt の値を確認しても、表示件数
　　　　（MaxRows=10）までのループで、”２”しか値がセットされない。
-----------------------------------------------------------
　（２）パターン２　
　　　※グレープシティ社のHPにて、類似事例があったので以下のコードで試してみました。

　　Dim lngArray() As Long          '配列を宣言
    Dim lngCount As Long　　　'選択している行の総数を格納する変数
    Dim lngPre As Long　'取得した行番号を一時的に格納する変数
    Dim i_ct As Integer　　
    ReDim lngArray(0)　 '配列の初期サイズを宣言
    lngCount = fp.Spread1.SelModeSelCount　 '選択している行の総数を取得
    lngPre = 0
    For i_ct = 0 To lngCount - 1
      '選択行の行番号を配列に格納します
      lngArray(i_ct) = fp.Spread1.GetMultiSelItem(lngPre)
      'Sel_Txt = fp.Spread1.GetText(1, lngArray(i_ct), ax1)    '選択行：Get
      'Sel_Txt = fp.Spread1.GetText(2, lngArray(i_ct), az5)    '選択行：Get
      ReDim Preserve lngArray(i_ct + 1)　　'配列のサイズを拡張します
    Next i_ct

『確認実施手順』　
　　スプレッド明細行にて、２行目と４行目を選択し実行する。
　　lngArray(i_ct) に、２が返されるが、４は返されない。
　　（１）と同様の結果となる。

-----------------------------------------------------------
（３）パターン３　
　　※グレープシティ社のHPでの別の類似事例による以下のコードで試してみました。

　　Dim c, r, c2, r2
    Dim x As Long
    With fp.Spread1
     　If .IsBlockSelected Or . SelectionCount Then
      　.BlockMode = True
       　 For x = 0 To . SelectionCount - 1
        　  .GetSelection x, c, r, c2, r2
          　.Col = c
          　.Col2 = c2
          　.Row = r
          　ow2 = r2
          　ebug.Print .Col, .Col2, .Row, .Row2
        　ext x
          .BlockMode = False
     End  
   End With

『確認実施手順』　
　　スプレッド明細行にて、２行目と４行目を選択し実行する。
　　GetSelection　については動作確認できず。
　　（プロパティがサポートされてません）

GetMultiSelItemがわかっているならSPREADのヘルプを見れば載ってますが、
以下のやり方でどうでしょう。

Dim i_cnt As Integer
Dim sel_cnt As Long
Dim Sel_Txt As Boolean
    '初期値を0にして選択行を検索する（選択されてる先頭行取得のため）
    sel_cnt = 0&
    Do
        ''現在選択している行を引数に次に選択されている行を取得
        sel_cnt = fp.Spread1.GetMultiSelItem(sel_cnt)
        
        ''取得できた行が(-1)ならもう選択されてる行はない
        If sel_cnt < 0 Then
            Exit Do
        End If
        
        Sel_Txt = fp.Spread1.GetText(1, sel_cnt, ax1) '選択行のax1をGet
        Sel_Txt = fp.Spread1.GetText(2, sel_cnt, az5) '選択行のaz5をGet
        
        ''セルの値を取得してから必要な処理の記述（表示処理など）
    Loop

ご助言ありがとうございます。
アドバイスのコードで、要件を実現することの確認ができました。
少し、応用が利かない点に、まだまだ未熟なところを再確認しました。
これから、もっと勉強いたします。
このたびは、本当にありがとうございました。

> 参考までに”ググれば”とは？　何でしょうか？
いなさんから回答でてますね(^^;
ありがとうございます>いなさん

そんな強い意味ではなかったんですが・・・
ただ、具体的でないと答えずらかったですし、
ここの「初めにお読みください」をよんで見てくださいね


いなさんがリンクも張られてることですし、がんばってください(^-^)/

oracle　で検索
hhttp://www.google.com/search?hl=ja&ie=Shift_JIS&sitesearch=http%3A%2F%
2Fwww.bcap.co.jp&lr=lang_ja&q=hanafusa+oracle

よくある質問(FAQ)を載せておきます。
hhttp://www.grapecity.com/japan/support/database/P1_295_TechFaq.htm#content