C# と VB.NET の質問掲示板

環境
Windows 7 64bit
Access2013 32bit
VB6.0
Crystal Reports 13.0.2000.0

WindowsXPsp3 + Access97 + VB5 で動作していたシステムを上記環境に移行しましたが、クリスタルレポートで躓いています。
(元ソースは他の方が組んだものです。)

問題となっているクリスタルレポート出力のコードは下記のとおりです。
With Crystalreports1
    .ReportFileName = レポートファイルのパス+ファイル名.rpt" 'レポートファイル名の設定
    .Destination = 0 'レポートの出力先設定（0：画面　1：プリンター）
    .Action = 1 '印刷処理実行
End With

しかし、上記のコードではAction = 1のところで次のようなエラーが出てしまいます。
実行時エラー'20534' データベースDLLからエラーが返されました。

また、Action = 1 の代わりに PrintReport に書き換えた所、エラーにはなりませんが
今度は全く動作しません。

良い解決方法がございましたらご教示いただけると助かります。
よろしくお願いいたします。

■No69912 (らうむ さん) に返信
> ウィンドウがアクティブにならないと反応しない
> という仕様なのか?と想像しているのですが。
アクティブにした後、クリックを無かったことにする仕様です。
いわゆる MA_ACTIVATEANDEAT ですね。


> ボタンコントロールでも1発で反応してくれるようにならないものでしょうか。
そういう動作となるよう、ToolStrip を作り変えてみました。


public class RaumToolStrip : ToolStrip
{
    protected const int WM_MOUSEACTIVATE = 0x0021;

    /// <summary>ウィンドウをアクティブにし、マウスのメッセージを破棄しません。</summary>
    protected const int MA_ACTIVATE = 1;

    /// <summary>ウィンドウをアクティブにし、マウスメッセージを破棄します。</summary>
    protected const int MA_ACTIVATEANDEAT = 2;

    /// <summary>ウィンドウをアクティブにせず、マウスのメッセージを破棄しません。</summary>
    protected const int MA_NOACTIVATE = 3;

    /// <summary>ウィンドウをアクティブにせず、マウスメッセージを破棄します。</summary>
    protected const int MA_NOACTIVATEANDEAT = 4;

    protected override void WndProc(ref Message m)
    {
        base.WndProc(ref m);
        if (m.Msg == WM_MOUSEACTIVATE && m.Result == (IntPtr)MA_ACTIVATEANDEAT)
        {
            //m.Result = (IntPtr)MA_ACTIVATE;
            m.Result = (IntPtr)MA_NOACTIVATE;
        }
    }
}


プロパティで切り替えられるようにしておいても良いかも。

VB2005 + Oracle10gにて開発しています。

テーブル（テーブル名：TEST、KEY項目：SA_CD,S_CD,R_CD）に
下記のデータが存在した場合の抽出方法をお教えください。
現在、VBのプログラムにて全データをループしデータの抽出を行っていますが、
非常に時間がかかり困っています。
SQLにて抽出を行いたいのですが、方法がよくわかりません。

テーブルデータ
SA_CD   S_CD         R_CD  DATA
AE001   A01-2014-01  1     AA1
AE001   A01-2014-01  2     BB1
AE001   A01-2014-02  1     CC1
AE001   A01-2014-02  2     CC1
AE002   A01-2014-03  1     DD1
AE002   A01-2014-03  2     EE1
AE003   A01-2014-04  1     FF1

抽出したいデータ
SA_CD毎に抽出、S_CD最大値の中でR_CDが一番大きいデータを抽出
AE001   A01-2014-02  2     CC1
AE002   A01-2014-03  2     EE1
AE003   A01-2014-04  1     FF1

申し訳ありませんが宜しくお願い致します。